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' B ro A PRIMEIRA REVISTA BRASILEIRA DE MICROCOMPUTADORES 

END IF 
IF F--"-? 



STORE 'NOVE ' TO F.1 
END. IF 
ENDIF 
* 

IF LFN<P i > <2 
IF LENtAi ) >.l 

STORE A1 + ' ' TO Pi • 
ENDIF 

IF LEN<8i)>i 

STORE P1+B5.+ ' ' TO P i 
END IF 

IF l_EN<Ci>>i, 

STORE Pi+Ci + ' ' TO Pa 
END IF 

IF LEN(P1)>1 

STORE Pi+'MIL ' TO PI 

END IF 



END IF 

X- 

IF LEN(P2><2 


• Ida ao mercado 


x 1* L cNvl)i > >1 

STORE Di+ * ' TO P2 
END IF 

IF LEN<Ei > >1 
IF LEN(P2)>1 


• Preenchendo 


STORE P2+E1+ ' ' TO P2 
ELSE 

STORE E1+' ' TO P2 


cheques 


END IF 
END IF 




IF LENCFi > >i. 

IF LENCP2)>i 

STORE P2*FH ' ' TO P2 


• Recuperando 


ELSE 

STORE Fit ' ' TO P2 

END IF 


informaqoes 


END IF 

IF LEN(P2> > 5. 





STORE P 2+ 'CRUZADOS ' TO PS 
END IF 
END IF 



IF LFN<P2>=1 

STORE Ai-*-' '+BI+’' '+C1+' MIL. CRUZADOS' 
END IF 
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Partidpe do metior e mats profissional Congresso da Informatica no Brasil 
Riocentro - Rio de Janeiro - 14 a 17 de marpo de 1989. 

3.° Congresso Intemacional da Tecnologia do Software, Telematica e 

Informa^ao. 

PROGRAMA TEMARIO 



14.03.89 


15.03.89 


16.03.89 


- Abertura Oficial IPIenbriol 


- Implementapao de Banco da Dados 


-DeskTop Publishing 


- Painel: Panorama Nacional do Setor de 


Distribuidos. 


- Prototipapao de Sistemas. 


Informatica 


- Tbcnicas Criptogrbficas. 


- Integragao Voz-Dados 


- OS/2 e o PS/2 


- Modelagem de Dados. 


- Preparapao do Usubrio Final para a 


- Problemas da Expansao da Rede de 


- Portabilidade de Software. 


Informatica 


TP. 


- Painel: Informatica do Future • A Visao 


- Painel: Horizonte Tecnolbgico para o 


- Gerencia de Capacidade: Uma 


dos Grandes. 


Setor de Servipos. 


Necessidade Atual. 


- Tendencias na Automapao Comercial 


- Electronic Date Interchange 


- Canais de Distribuipao do Software. 


- Ugapao Micro-Mainframe 


- 0 Processo de Desenvolvimento de 


- Token Ring x Novell: Padroes em 
Rede? 


- Marketing de Servipos 


Sistemas 

- Controle e Qualidade de Software 


- EDG: Editor Diagrambtico Generalizado • 


- Auditoria de Sistemas 


- Sistemas Especialistas e sua Aplicapao 


Uma Ferramenta CASE 


- 0 Mercado Mundial do Software 


Prbtica 


- Plano Oiretor de Informatica. 


- Documentapao de Sistemas 


- Qual o Future do MS-DOS. 


- Implantapao de Tbcnicas Estruturadas ■ 


- Descentralizapao da Informatica 


- Automapao de Escritbrios: Tres Estudos 


Urn Estudo de Caso 


- Seguranpa do CPD e Planeiamento de 


deCaso 


- Painel: Informatica Militar- 


Contingencies 


- Utilizagao de CAD em 


Caracteristicas e Oponunidades. 


- Painel: Polltica de Formagao de 
Recursos Humanos em Informatica. 


Microcomputadores 

- Composipao de Custos em Servipos 

- Painel: Prbticas Predatbrias no Mercado 
de Software. 



17.03.89 



- UNIX: Caracteristicas e Tendencias 

- Gerenciando o Oesenvolvimento de 
Sistemas 

- 0 novo Perfil do Profissional de 
Informatica 

- A computapao pelo Usubrio Rnal 

- Painel: Competitividade do Software 
Nacional 

- Painel: Solugoes em Automapao 
Industrial 

- Seguranpa de Sistemas 

- Do Plano Estrat6gico ao Sistema 
Estrategico 

- Implantapao de Micros nas Empresas 

- OSI: Este b o Caminho? 

- Gerenciamento dos Profissionais de 
Informatica 

- Oppoes de Financiamento e Incentivos 
na Informatica 

- Sistemas de Apoio aos Executivos 

- Painel: 0 papel das Institutes Publicas 
no Oesenvolvimento da Informatica 
Nacional 
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O setor de microinformatica e um dos poucos segmentos de 
mercado que ainda apresenta perspectivas de avancos e lucros 
nesta nossa conturbada economia. 

Isto se da com mais enfase na area de producao de programas 
por dois grandes motivos: some rite agora, com a lei de software, 
os profissionais se sentem amparados (ou pelo menos com algum 
tipo de chance contra a pirataria) para encarar com mais 
disposicao a producao de um programa. 

O outro motivo e que o resultado da pirataria desenfreada a 
que assistimos nesses anos todos deixou, como sequela, um 
mercado arido em termos de bons autores e programas serios. Das 
piratohouses ainda em funcionamento continuam saindo os 
mesmos programas ilegais de antes e, quando muito, um ou outro 
" arranjo ” ao qual se tenta rotular como programa de computador 
Apesar destas caracteristicas, o mercado de producao ja 
comecou a busca pela sua propria identidade, com iniciativas 
vindas dos mais diversos segmentos. Engenheiros, arquitetos, 
medicos, desenhistas, advogados, comecam agora a encarar o 
software como um produto de mercado, identico a outro qualquer. 

Ainda ha muito o que fazer e o trabalho exigira garra e 
disposicao para enfrentar o que vem por ai. Ha tambem muito o 
que aprender ainda pois, no Brasil, software serio e algo 
relativamente novo. 



Na realidade, a unica grande certeza que se pode ter, neste 
ano que inicia, e que so acertarao o alvo aqueles que estiverem 
dispostos a encarar seus proprios erros. ^ 
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Controle de notes fiscais (IV) 



.Joao Krish Jr. 
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CONTODOS. BAS 



CONTODOS. HAD 



210 PRINT FNT*<2i.20>" 



H l*e 

12 GS-'MMMM.MMM.MM ' 

20 OPEN "R" . Ml , " ARONOTAS” *70 

30 FIELD Ml, 6 AS DLS.28 AS FOS.O AS VDS.Q AS 
VNS.8 AS VCt.A AS VES.6 AS PA'II 
40 DCF FNTS(L.C) “CHRK 27) *"Y"*CHR% < 31+L ) ♦CHH 
K31+C) 

130 PRINT FNTK3. !• > "P ESQU1SA TODAS AS NOT AS 
OE UM FORNECCOOR MEDIAN TE COOIOOtH 

100 l = 0«COM---0iPRINl CMRK7 ) SPRINT FNTS<5.1©> 

"QUAL O FORNECtDOH/NOTA INPUT 

XKPRINT FNT1.11V.4U)" ":PRINT FNTK21.3 

4)" "SPRINT FNTK20.4 

V>" "UK XS-~FIM" THEN CLOSE Ml* RUN "AtC 
AO ASTRO" 

101 PRINT CHRS<7> SPRINT INTS<6. 5«>"1 COD I GO. 
. . ."} : INPUT C 

102 PRINT CHRK7) SPRINT FNTS< 7 . !50> "ULTIMO CO 
D. .*» • INPUT D 

110 IF XS-"" THEN CLOSE MllRUN "AsCADA‘JTRO.B 
AS" 

120 FOR RED - C TO D 
130 OET Ml. RUG 

140 IF XS B LEF TS<FO$,LEN<XS) > THEN G0SU8 225 

142 PRINT FNT5 < 20 . 20 ) "PESQUISANOO REGISTRO N 
:"|RCGH 

1 43 IF REG*0 THEN 100 
130 NEXT RED 

160 PRINT CNR 0(7) 

170 PRINT CHRK27)""B" 

100 PRINT FNTSC21. 20) "CL IENTE ":XS»" NAO EXI 
«TE" 

lVO PRINT CUN K 27 > "" b " 

200 FOH A * 1 TO 2000 » NEXT 



0 

220 GOTO 100 

223 PRINT FNTt <8. 36 > ~ 

230 PRINT f NTK 8 . 3 >"REOXS TRO 

J":REG 

240 PRINT FNTK 9,5) "DATA ENTRAOA 

i-ioea . 

2S0 PR '-’ FN1S< 10.3>"F0RNECED0R/N0TA. . 
«"fFO* 

240 PRINT l NTH ( 1 1 . 5 > "0 AI.OR TOTAL NOTA. 



263 PRINT USING OSsCVOCVNS) 

•47 PR T FNTK 1 1 . 3© > "DEVOLUCAO. ...»"s*PRINT 
UU.NfT DSsCVlHUDS) 

;■/<) TNT FNTK 1 5* . '3 > "VALOR C/OEBCONTO 

! UPRINT USING GKCVDCVCS) 

;*U0 PRINT 1 NTK13.5>"UIINCIM€NT0 

*"*VE% 

290 PRINT ( NIK 14.5 > "DATA PAGAMFNTO 

l"«PA* 

291 COM • COM *CVD< VNS > 

292 I-I'l 

300 PRINT CHRK 7 > 

310 PRINT FNTK 16. 10) "Digits Return p/Contin 

uar INPUT /SPRINT FNT'K 19. 20>"NUM 

ERO TOTAL DE NO TAB a"il 

311 PRINT FNTK 21 . 20 ) "VALOR TOTAL DIDSAS NOT 

*S CZS "i 

312 PRINT USING GSiCO** 

320 PRINT FNT*<5.37>" 

323 RETURN 
330 OOTO 100 



C om os modulos desta edipao 
conclufmos a publicapao do 
programa Controle de Notas 
Fiscais. Este aplicativo, desti- 
nado ao gerenciamento de um cadastro 
de notas fiscais de compras a prazo, foi 
apresentado de forma seriada nos tres 
ultimos numeros de MICRO SISTEMAS. 
0 mbdulo central do sistema saiu em 
MS n° 79 e os mddulos responsdveis 
pelas funpoes de registros das notas, 
consulta por itens e listagem dos arqui- 
vos foram publicados em MS n° 80 e 81 . 

Os dois primeiros modulos desta 
edipao acrescentam ao cadastro as fun- 
poes de pesquisa das notas do fornece- 
dor mediante os eddigos corresponden- 
tes, e listagem das mesmas no video ou 
na impressora (CONTODOS. BAS e 
LISTODOS. BAS). 0 terceiro e ultimo 
mddulo do programa (PERIOIMP. BAS) 
procede & impressao das notas de acordo 
com a data de entrada ou data de paga- 
mento especificada. 

A conversao destes modulos para o 
BASIC das diferentes families de equi- 
pamentos 6 bastante simples e segue as 
mesmas regras explicadas nas edipoes an- 
teriores de MICRO SISTEMAS. Para fa- 



cilitar o trabalho de adaptapao, acom- 
panhe na figura 1 o quadro contendo su- 
gestdes de conversSo de parametros para 
os micros IBM-PC, MSX e CP 500. 



MICRO SISTEMAS agradece as 
cartas de todos os leitores que envia- 
ram eiogios e sugestoes para a sep§o 
Aplicapoes Comerciais. Ate a proxima. 



PERIOIMP. BAS 
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I2 GV 1 "MMM.MMM.WM" 

:•« Ol'IN "R' .»1.‘ ARONOTA8-.70 

30 FIELD 01.6 AT DCS. 20 AO 104. 0 A!) VOS.B AS 
UNI, . IT A*j VC*. 6 AU VES.6 AO PA* 

40 OF' ‘MTKI..C>-CHRSt27> *"y"»CHRS < 31+L > *CH« 

k 31 * i: ) 

C0 PRINT I NIK 3, 10>"IHPKIME TOOAS AB NOTAS 0 
E UM OlA ' UPECJFICADO" 

90 PRINT . UK/) SPRINT FNTSO. JO > "DA T A HOJE 
< DD/MM/AA) -i J INPUT .* 

VI PRINT 'NIK6.10>"1.DATA DE ENTRADA" 

V? PRINT > NIK/. 10) '2. DATA O': PAGAMI: NTO" 

73 PR IN l I NTKT1. 10>"3.0l0ITt ( BAIXAR ) P7NA0 
P AO AS "SPRINT I NTS<9. 1©>"4.FIM ~ 

V4 PRIN1 C*lRSt7) SPRINT FNT *< 10.2M"fc.UCPlh» • 
Omi.mo "*S INPUT / 

9 3 ON 2 GOTO 100. 14««. 1400. 10000 
V9 PRINT FNTK 13.44) "000000" 

100 PRINT CHRK7) iPRINI » N TH < 13. lOJ'TORNLCA 

A DATA SOD/MM/AA) s"|S INPUT XS" 

IF XS»"»1M" THEN CLOSE Ml IRON AieADAGTHO" 

101 PRINT FNTK22.10>~BE NAO S0U8ER 0 COOTOC 
DIGIT*. O NO 1 t NO ULTIMO": PRINT 

INTK18.10>-1 CODIGO.... s"l IINPUT C»IF C-O T 
HI'N C»t 

10? PRINT FNTK 19, 10)*ULTXHO COO s " I s INPUT 
Ds IK 0-<© TMt.N D-IOOA 

103 II X*-" THEN CLOSE MlsRUN "AlCADASTRO.B 

AB" 

111 (.PRINT 8 ItinCK/V. ' "> «LPR INI TAII (*.>)"REL 
6..A0 :)»v, NOTAS DE ENTRAOA 00 DIA "»X 

• R ’ NBt < T9 . " "> 

• (J ) i PRINT ' AW<7)"DAT.EN 

’ " : s . '(TINT TA® ( 1 4 > "FORNECFOOR/NDTA" I 
. <■«!».! • ac , 42 )**WAl.OR/NOTA" l si. PRINT IAIK34I" 
'1)1 BCON»0*SILPRINT * AT* < 66) "OEUOtUUA 
©": si.PRINT TAU(/5J~VtNC." 

114 LPHINT CTRINOK/V. -"1 
120 i OR RLG C TO O 
13* OE' Ml. REG 



140 IF X*-LEFTKOe.*,LEN(X»)) THEN G0GU8 225 

142 PRINT FNTK 15. 1 © ) "PROCURANOO DIA 

i " I DE * 

143 PRINT SNTK 16. 10) "REGISTRO N 

S"|RF.U 

143 IF REG^O THEN 100© 

150 NEXT REG 
160 PRINT CHRK 7 ) 

1/0 PRINT CHRK2/>~“ 8" 

1U0 PRINT FNTK 21 .20) "CL IENTE "lX*i" NAO EXI 
STG" 

190 PRINT CHRS(27)'“b" 

2©0 FOR 6 - i TO 2000 • NEXT 
210 PRINT FNT K 21 • 20 ) " 

"IOOTO 32 

0 

220 GOTO 100 
223 REM 

230 LPR iNT TAB ( 1 >REOs 
240 LPR INT TAfl</)DF»r 
LPR INT TA0(14».oti 

260 LPR IN’ TAB (42)USINQ Gl.iCVOTUNKy 
2/0 IPRINT TAD (52) USING GitCVOTVCKs 
200 LPR INT TAB ( 63 )US1NQ DliiCUDTUOKj 
?9« IPRINT T All < 74 ) UE * 

321 COM*COM*CUO<VN%) 

322 CAM* CASS. CUOTVCS) 

323 CLM.CEM»LVD(VDS) 

323 RETURN 

1000 IPRINT TAB < 40)"- 

1010 IPRINT TAU< 14)"T0TAIB DEHSA FIRMA....CZ 
*"! 

1020 LPR INT USING M . MMN . ORM . MM" (COM t 
1022 LPR1NT T AB (50)US tNG "0, SIMM , NHM . MM" ; CAM y 
1024 LPRINT I All ( 60 1 liOI NC! ' '< . MMM . MM II . MM" iCE* 
1030 (.PRINT TAB < 4# > "« HMD 

1032 COM-0 1 CAM-0 MICH 0 

1034 PRINT FNTK13.4:*)" "SPRINT F 

NfK 13.33)" "SPRINT l‘ 

NTB< 16.33)" "IPM1NT FHTKl».23l*' 



"SPRINT FNTK19.23)" "IPRI 

NT FNTK 10.41)" 

1040 GOTO 94 

1100 PRINT CURB ( 7 ) IPRINT CHRK 27 ) ""9" I PR INT 
FNTK 20 . 30 > "01 A "|X*i " NAO CXI8TE" 

1105 FOR A • 1 TO 2500 s NEXT 

1106 PRINT CHRK27>"-b" 

1100 PRINT FNTK 20 . 30 ) " 

111© OOTO 1034 

1200 LPRINT STRINGS T7V,"-")*LPRINT IAB<3»"RE 
I.ACAO DAB NOJAG EM AUER TO NO DIA "|P 
s LPRINT STRINGS <79. "-") s RETURN 
140® PRINT CHRS< / > *PR INT FNTS < 13 . 10 > "FOKNECA 

A DATA ( OO/hM/AA ) I " I 1 1 NPUT XS 

sir XS-"MM" THEN CLOSE MllRUN "AlCADAflTRO" 
1500 PRINT CHRS< 7) I PRINT FNTS< IB . 10 > " 1 CODIG 
0. ... i "s S1NPUT dir C-0 THEN C-l 
1510 PRINT CHRK 7 > r >>R J NT FNTS< 17 . 10 > "ULTIMO 
COD., i" l* INPUT |)sir l>**0 THCN D-1000 
1515 I* XS-"UAIXAR~ THEN OOBUB 1200SUOTO 154 
0 

1520 LPRINT 8TR 1 NO K79. "••")* LPRINT TAB < 5) "HE 
LACAO DAS NOTAB PAGAS NO DIA "»XS 
1530 LPRINT 3TR INGS( 77 , 

1340 i PRINT TAB ( 1 )"MEO"» ILPRlHT I All < / - -A r . | 
NT" i SLPR INT TAU < 1 4 ) "FORNECEDOM/NO I A" 

I I LI'RXNT TAU (42) "VALOR /NOTA" l II. PRINT TAU('.'.4» 
"C/DCBCONTO" I i LPR INT TAII < 65 > "Dl; VOLUC 
AO": SLPR I NT T A8 < 73 ) "VE'NC . " 

1550 PRINT CTRIN0S<79,"-") 

2000 I OR REG- C TO I) 

2010 DEI Ml.RLU 

20VO IF XS**LKFTS(FAS .l.EN< XS) ) THEN 00«UB 225 

.'030 i - NT l*'NTS<13.10) "PROCURANOO OIA 

. i " f P AS 

2 040 PRINT rNT*<16.l0)"RCCrSTRO N 

.•"IREO 

•030 I» HLG-I) THEN 1040 
’06© NEXT RED 

10000 CLOSE 111 SHUN “A I C ADA'S T WO’ 
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LISTODOS.BAS 



LISTOOOS.BAS 



12 G*«'"HHN.NHN.»»W" 

20 OPEN ~R~.H1 ."ARQNOTAS“.70 

□0 FIELD Ml. A AS 0C1.28 AS FOt.B AS VO*. 8 AS 
VN*.Q AS VCt. 6 A3 VE %,A AS I* AS 
48 DEF FNT*<L.C>-CHR*(27>*~Y“*CXR*<31*L>»CrtR 
S(31*C> 

80 PRINT FNT*( 3 . 10) ~ I HP RIME TOOAS AS NOTAS D 
0 FORNECeOOt" 

lt^_FL-l!X-8:P«rNT CH**( 7 ) » PRINT FNT*(S.10)“ 

DUAL 0 FORNECiDOR/NOTA....:":: INPUT 

XSIIF X*='FIM" THEN CLOSE Bit RUN "AsCAOASTRO 

101 PRINT rNY*(7.20)”i CODIGO INPUT C 

102 PRINT FNTS (8 . 20 >~ULT I HO COD. INPUT D 
105 FL-0 

110 IF XS=““ THEN CLOSE NllRUN 'AlCADASTRO.S 
AS~ 

113 GOSUB 5000 

120 FOR REG • CJO D 

130 GET 01. REG 

140 IF X»-LEFT*(FO*.LEN(XS)> THEN GOSUB 225 
142 PRIN’’ CNT*{12.20>"r>EsaulSANU0 REUISTRO N 

:“:REG 

14S IF REO-O THEN 1090 
150 NEXT 

160 PRINT CM**(7> 

170 PRINT CHR*(27)”“B“ 

180 PRINT FNT*(2l.20)“CLI£NTE “:X*|“ NAO EXI 
STE~ 

190 PRINT CHR*(27>““6“ 

200 FOR A - 1 TO 2000 i NEXT 
210 PRINT FNT*(21.20>“ 



225 PRINT FNTS < 8 . 50 > “ 

230 LPRINT TA8 (3)REGi 
240 LPRINT TAB ( 12>D€t S 
250 LPRINT TA8(26>F0S: 

260 LPRINT TAB(33)US>NG G*:CVO(VNS): 

270 LPRINT TA8(7S>USING G*:CVD(VC*): 

280 LPRINT TAB ( 93 > USING G*:CVO(VO*)i 

2V0 LPRINT TAB ( 1 ©0>VE*| « LPRINT T AB < 120 > PAt 

300 CON=CON*CVO(VN*> 

303 CAB=CAN*CVD(VC*> 

310 LINZ=LINZ*1 : 1=1*1 :C£H=CEN*CVO(VD*) 

321 IF LINZ >49 THEN GOSUB 4000: GOTO 325 
324 PRINT FNT*<13.20)~F0RAM IHPRINIDAS (“ill 
~> NOTAS~ >PR XNT FNT*( 14 . 20> "VALOR 0£ 

RAL OESSAS NOTAS CZ* “lUSING ~O.OOII, 



NNN.MN'iCOM 

325 RETURN 

‘000 LPRINT TAB (50) ~ 

1010 LPRINT TAB (22) "TOT A IS DESSA FIRHA 

. .CZS“ * 

1020 LPRINT USING ~ N.HMN.NNN. RM" j COM I 
1022 LPRINT TA8( 73) USING "N.HNN.HHN. HO" ; CAR s 
1024 LPRINT T A6 < 93 ) US I NG ~H . HON . HNH . OH" :CEM 

1030 LPRINT TAB(SO)"— — — — — — 

1031 LPRINT i LPR INT TAB ( 15>~T0TAL DE NOTAS IM 
PRESSAS < ~; 1 s " > “ 

1032 COH=0=CAH=O:CEH=0 

1033 PRINT CHR»(7>:PRINT FNTS < 18 ,20 )~D ig i t e 
Return “i» INPUT 1 % 

1034 PRINT FNTSC 7 , 33 ) “ “SPRINT FNT*(8.33 

>“ “SPRINT FNT*(3.3B>~ 

“:PRINT FNT5C12.31 
>~ “SPRINT FNTS< 13,38)“ “SPR 

INT FNTS( 14 , 57 )“ 

1040 GOTO 100 

4000 LPRINT TAB (S0>“ 



4010 LPRINT TAB l 18 ) "SUB-TOTAIS A TRANSPORTAR 

CZt~» 

4020 LPRINT USING ~ H.HNN.HHM. ON" ; COO 1 
4022 LPRINT TA8(73)USING ~0 . HNH . HNH . 00" iCAN , 
4024 LPRINT TAB(93)USIN0 “0 . HNH . HNH . HH"iCCHi 
4030 LPRINT TA8<50)"« — ••■-■•*-••— » ===•■ 

5000 LINZ-0SFL-FL*1:LPRINT CHRS(27)CHRS( 19) : 

LPRINT CHR*(12)SLPRINT TAB ( 30 > "LAT IC 

IN I OS DIANA'S LTOA - FILIAL JA8AQUARA - FONE . 

8 « 275-2628 275 67B6~:LPRINT STRI 

NGS( 132,“-“) • LPRINT TAB < 35 ) "RELACAO DAS NOTA 

S DA FIRMA “iXSiSLPRINT TA8(105)“FOL * 



5010 LPRINT STRING*(132."-“> 

5020 LPRINT TA8 ( 3 >~RLG" I i LPRINT TAB(12)"DAT. 
ENT's SLPRINT TAB ( 26 > "FORNECEOOR /NOTA 
~ I : LPRINT TAB (55) "VALOR /NOTA" i SLPRINT TAB (75 
>"C/DESC0NT0~| SLPRINT TA8 ( 95 > "DEVOLU 
CAO~S SLPRINT TAB(108)"VENCTO.": SLPRINT TAB ( 1 
20)“OATA PAOTO.“ 

5030 LPRINT STR INGS( 132.“-“) 

5040 RETURN 



IBM-PC 

Fazer DEFFNT$ (L . C) -CHR$ (11) +STRINGS (L , 31) +STRINGS (C, 28) 



Fazer DEFFNTS (L , C) -CHR$ (11) +STRINGS (L , 31) +STRINGS (C/4 , 28) 
Trocar OPEN"R" , fl , "NOME" , 10 por 0PEN”N0ME"AS#1 LEN-10 
Modificar SYSTEM para CALL SYSTEM 

CP 500 

Fazer DEFFNTS (L.C) -CHRS (28) +STRINGS (L , 26) +STRINGS (C/2 , 25) 

Figura 1 



”^/ A . #A , , -m , tudo para o seu MSX 
.^AVALLON Tel.: (021) 262 1636 



Receba gratuita- 

mfintfi nnssn natalono 


CURSOS: 


pelo correio ou na ho- 
ra da compra 

Equipe especializa- 
da pronta para esclare- 
cer as suas duvidas 
nos jogos e no funcio- 
namento do seu MSX. 


Aprenda a usar me- 
Ihoro seu MSX, Super- 
calc 2, Wordstar, Dba- 
se II Plus, Basic e As- 
sembler Z-80 com a 
Avallon. Consulte-nos 
sobre bolsas de estu- 
do. 


PROMOQAO: 


SUPRIMENTOS: 


A AVALLON oferece 
a cada compra de 
Cz$ 5.000,00, 20% a 
mais em programas. 
OFERTA VALIDA ATE 
0 DIA 15/02/89. 


Drive com pleto com 
interface, cartao 80 co- 
lunas, expansoes de 
membria, fitas casse- 
te, disquetes, EXPERT 
1.1 e HOTBIT. 




IUI AMI ITFMPAH- 


Gravagoes garanti- 
das por trinta dias a 
partir da data da entre- 
ga. 


IV1MIN U 1 CntjrAU. 

Fontes, drives, im- 
pressoras, CPU, tecla- 
do, interfaces, e tudo 
mais da linha MSX. 



SOFTWARE: CURSOS: INEDITO: 

JOGOS, APJJCATI- P el p correio ou na ho- Aprenda a usar me- 1 e pouco? Que t 
VOS, UTILITARIOS, radacompra Ihoro seu MSX, Super- seu HOTBIT com 2' 

COPIADORES EM FI- Fnuinp psoecializa- calc 2, Wordstar, Dba- 2 e pouco? Que t 

TA, DISCO E CARTU- da nron^iMr^sclare- se II Plus, Basic e As- seu EXPERT com 3' 
CHO. Novidades em f Jl s dlividas sembler Z-80 com a Instalamos mais u 

jogos para 89: Catch ioaos e no funC j 0 . Avallon. Consulte-nos SLOT fixo no seu MS 

Bin g t rl Ea^ k B S “odoseuMSX. sobre bolsas de «tu- | Mf?y9n .— 

84, Carry, Crazy Cars, 

Espadachim, Eye, Far- 
mer, IQ, Gradius, Kim- 
po, FireTrant, Hurrica- 
ne, Mad Fox, The Prin- 
ce, Shipwars, Silent 
Shadow, Manes Milca- 
ras, Mogura, Gutt Blas- 
ter, Souzan, Skate Dra- 
gon, Speed-Boat Ra- 
cer, Starbyte, Streaker, 

Space Maze, entre ou- 
tros que chegam dia- 
riamente na Avallon. A 

partir de Cz$ 300,00. 

Remetemos para todo o Brasil, ou se preferir venha ao nosso escritorio e SHOW-ROOM. 



INEDITO: 

1 e pouco? Que tal 
seu HOTBIT com 2? 

2 e pouco? Que tal 
seu EXPERT com 3? 

Instalamos mais urn 
SLOT fixo no seu MSX. 

MSX 2.0: 

Transformamos o 
seu EXPERT .1.1 em 
MSX 2.0, com embuti- 
mento opcional de dri- 
ve 3.5”. 

Venda de software 
para 2.0. 



Avallon Informatica Ltda 
A v. Almirante Barroso, 22 sala 602 
Centro - Rio de Janeiro 
Ao lado do Metrd Carioca. 
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Entendendo a interface MIDI 



Sylvio Messias Moraes 



J b vimos no niimero 81 o que b MIDI, seu surgimento e sua 
utilizagbo; agora vamos entender como e quais sbo os coman- 
dos MIDI. Aqui vai um pequeno resumo das caracterfsticas da 
MIDI: 

1 — transmissbo serial em 31,25 Kbauds; 

2 - tres tomadas tipo DIN - MIDI IN, MIDI OUT, MIDI THRU; 
3 — transmissbo em 16 canais; 

4 — 3 modos de transmissbo — POLY, MONO. OMNI. 

MIDI SOFTWARE 

Chamaremos de evento as diferentes "mensagens" que podem ser 
emitidas via MIDI. Estas ''mensagens", eventos ou comandos sbo 
referentes a cada caracterfstica de uma execugbo musical ou informa- 
goes referentes ao sistema. Os comandos MIDI sao organizados como 
palavras em frases. Quando uma tecla b pressionada no teclado de um 
sintetizador MIDI ele, albm de executar o som, emitirb uma descrigbo 
do evento ocorrido atravbs da porta MIDI de sat'd a do sintetizador 
(MIDI OUT). 

Podemos classificar as mensagens em 5 tipos diferentes: 

CHANNEL VOICES - sbo as mais simples mensagens, se relacionam 
diretamente com a execugao musical: dinamira, ritmo, frequencia, etc. 
CHANNEL MODE - indicam o modo que um sintetizador operarb 
para emitir/receber informagoes. 

SYSTEM COMMOM — estas mensagens de caracterlsticas gerais sbo 
comuns a todo o sistema, nao especificando um canal. 

SYSTEM REAL TIME — usada para sincronizagbo de sequencers e 
drum machines, nbo tern especificagao de canal. 

SYSTEM EXCLUSIVE - mensagens usadas para descarregar a memb- 
ria (dump) entre dois sistemas iguais ou compatfveis. 

Em primeiro lugar vamos analisar o byte de tipo de mensagem — 
status byte; e o byte de dados - data byte. Esta denominagbo e bbsi- 
ca para classificar dois tipos distintos de mensagens que sao utilizadas 
em MIDI. 

O status byte b encontrado em todas as mensagens MIDI. Ele 
descreve o tipo de informagao sendo emitida para um instrumento 
MIDI e b o primeiro byte a ser transmitido a um instrumento MIDI 
quando ocorre um evento. O mais significante dos 4 bits de cada 
status byte define o tipo de mensagem, enquanto os 4 bits menos 
significativos identificam o canal utilizado. Por exemplo: 
para a mensagem NOTE ON, que tern o cbdigo 9nH: 

— 9 significa o cbdigo da mensagem; 

— n identifica o canal (0 a F, em hexadecimal). 

Tudo funciona conforme a tabela abaixo: 



hexa 


binbrio 


Canal MIDI 


hexa 


binbrio 


Canal MIDI 


0 


0000 


1 


8 


1000 


9 


1 


0001 


2 


9 


1001 


10 


2 


0010 


3 


A 


1010 


11 


3 


0011 


4 


B 


1011 


12 


4 


0100 


5 


C 


1100 


13 


5 


0101 


6 


D 


1101 


14 


6 


0110 


7 . 


E 


1110 


15 


7 


0111 


8 


F 


1111 


16 



O data byte e o(s) byte(s) que precede(m) o status byte, indicando 
o valor que vai ser atribufdo ao evento. De uma forma geral, em lingua- 
gem binbria, varia de 000 0000 a 111 1111,0 que em notagbo decimal 



sera 0 a 127. O status byte e o data byte podem ser distinguidos pelo 
valor do bit mais significativo. Exemplo: 

— sendo o bit 7 igual a 1 , indica status byte; 

— sendo o bit 7 igual a 0, indica data byte. 

Agora, uma anblise rapida dos lipos de mensagens e seus comandos. 

CHANNEL VOICES 

NOTE ON — Indica que uma determinada tecla foi pressionada. Tern 
3 bytes — 1 status byte + 2 bytes de dados, 
status byte - 1001 nnnn — (9 nnH). 

1° data byte — Okkk kkkk; onde k b o numero da tecla e pode valer 
de 0 a 127. O db central corresponde a 60; 

2° data byte — Ovw ww; onde v e a velocidade de acionamento da te- 
cla, ou dinbmica. Pode valer de 0 a 127; 

v = 0 nota desligada, v = 1 — > ppp (muito fraco); 

v « 1 27 - > fff (muito forte). 

NOTE OFF — indica que uma nota foi desacionada. Tern 3 bytes — 1 
status byte + 2 data byte status byte — 1000 nnnn — (8nnH). 

1° data byte — Okkk kkkk; onde k b o numero da tecla. Pode valer 
de 0 a 127, sendo que o do central corresponde a 60; 

2° data byte — Ovw ww; onde v b a velocidade de desacionamento 
da tecla. Raramente b usado e a indicagbo de nota desacionada normal- 
mente b feita pela mensagem de note on, com velocidade 0. Tern 
efeito quando o sint possui SENSE RELEASE VELOCITY, que deter- 
mine a velocidade de release da envoltbria (envelope, ver MS n° 80). 
CHANNEL AFTERTOUCH - Albm de sentir a velocidade com que 
uma tecla foi pressionada, muitos teclados "midibveis” tern tambbm 
um sensor colocado na parte inferior da tecla para determinar se a tecla 
foi pressionada fortemente apbs ter sido tocada: e o aftertouch ou 
channel key pressure. Um valor Serb lido para todo o teclado. Tern 
2 bytes — 1 status byte + 1 byte de dados, 
status byte — 1101 nnnn — (DnH); 

data byte — Ovw vwv; onde v b o valor que serb transmitido para cada 
tecla. Pode valer de 0 a 1 27. 

PITCH BEND CHANGE - A variagbo de um som musical b de extre- 
ma importancia na musica. O pitch bend change b uma variagbo da 
frequencia, que b obtida pelo acionamento de um potenciometro 
deslizante em forma de cfrculo. Seu efeito, quando bem usado, lembra 
o "lamento" das cangbes de trabalho e saudade que deram origem 
ao blues nos EUA, Tern 3 bytes — 1 status byte + 2 bytes de dados, 
status byte — 1 1 10 nnnn — (EnnH); 

1° data byte — 0 wv ww — onde v determina o menos significante 
byte (LSB) do dado referente a variagbo do potenciometro que estb 
sendo transmitida; 

2° data byte — Oxxx xxxx — onde v determina o mais significante 
byte (MSB). A combinagao do MSB e do LSB permite uma variagbo 
de 0 a 16384 nfveis de variagbo da frequencia. 

PROGRAM CHANGE - Todos os equipamentos da digital-music tern 
algum tipo de memdria, onde sbo gravadas as caracterfsticas daquele 
equipamento. Estas caracterfsticas sbo chamadas de PROGRAMAS 
(patch). Este comando permite a selegao de um patch tanto para 
execugbo como para a edigbo. Tern 2 bytes - 1 status byte + 1 byt< 
de dados. 

status byte — 1 100 xxxx — (CnnH); 

data byte - Ovw ww — onde v determina o niimero do programa 
selecionado. Pode variar de 0 a 127. 
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POLYPHONIC KEY PRESSURE — Atribui um valor a cada tecla 
individual. Isto n§o significa que o teclado tenha um sensor sobre 
cada tecla. Tern 3 bytes — 1 status byte + 2 bytes de dados, 
status byte - 1010 xxxx — (AnnH); 

1° data byte — Ovw ww — onde v 6 o numero da tecla; 

2° data byte — ovw ww — onde v i o valor da pressao para cada tecla 
descrita no 1 ° data byte. 

CONTROL CHANGE — Alem do pitch bend wheel, encontramos 
outros como botoes, chaves e pedais. Sua representapJo em MIDI 
6 feita por um numero simples. Uma mensagem especffica relativa 
ao controlador utilizado e enviada com a seguinte caracterfstica: 

0 indefinido 65 portamento 

1 modulation wheel 66 sostenuto 

2 breath controller 67 soft pedal 

3 indefinido 68 indefinido 

4 foot controller 69 hold 2 

5 portamento time 70-79 indefinido 

6 data entry MSB 80-83 General Purpose Controllers 

7 main volume 84-90 indefinido 

8 balance 91 external effects depth 

9 indefinido 92 tremolo depth 

10 pan 93 chorus depth 

1 1 expression pedal 94 celeste (detune) depth 
12-15 indefinido 95 phaser depth 

16-19 general purpose controllers 96 data increment 
20-31 indefinido 97 data decrement 

32-37 LSB for values 0-5 99 registered parameter number LSB 
38 data entry LSB 99 registered parameter number MSB 
39-63 LSB for values 7-31 100 registered parameter number LSB 
64 damper pedal (sustain) 101 registered parameter number MSB 
102-121 indefinido 

SYSTEM EXCLUSIVE 

Este tipo de mensagem 6 utilizado para comunicapSo entre dois 
equipamentos, podendo ser dois sintetizadores iguais ou um sint (drum 
machine) e um computador (sequencer). Dentre suas aplicapoes pode- 
mos destacar: 

1 — transmitir programas (patch) entre instrumentos; 

2 — Transferir para o modo de edipao de um sequencer a mem6ria de 
um sampler; 

3 — criar back-up de programas; 

4 — transferir informapoes referentes a conf igurapSo dos parametros da 
programapSo do painel frontal de um sint para possibilitar sua operapSo 
a distancia (controle remoto). 

Em um sint, quando acionamos um patch pelo comando PROGRAM 
CHANGE, ele somente emitiri o numero da localizap£o de memdria, 
isto 6, o enderepo onde se inicia aquele patch. O conteudo, portanto, 
s6 poderd ser transferido pelo SYSTEM EXCLUSIVE. Seu formato 
bdsico 6: 

byte inicializador - 1111 0000 (FOH) - indica infcio do comando; 
byte de identificapSo - Owv vwv - especifica o cddigo existente para 
cada fabricante; 

byte de dados — Ovw vwv — neste byte inicia a seqiiencia de dados que 
sera transferida; 

byte finalizador — 1111 0111 (F7H) — indica final da transmissSo. 

A criapao do cddigo do fabricante (byte ID, 2o. byte), d feita 
pela JMSC e pela MMA. A utilizapao do cddigo para cada fabrican- 
te especffico visa possibilitar a compatibilizapao dos equipamentos. 
Quando o byte ID nao d reconhecido (nffo faz parte do grupo licencia- 
do pela JMSC e MMA), toda a transmissSo d ignorada e finalize com 
F7H. Os cddigos do ID podem ser vistos na tabela 5. 

SYSTEM COMMON 

Estas mensagens auxiliam outras funpoes da MIDI. Caracterfsticas 
do status byte e do data byte: 

FI — nSo usado 

F2 - 2 bytes song pointer position 

F3 — 1 byte song select 

F4 - nao usado 

F5 — nao usado 

F6 - nenhum tune request 

F7 - nenhum end of message 

SONG POINTER POSITION - Usado com o system real time para 
sincronizar o clock de um sequencer com o de uma drum machine. tt 
Funciona como um "autolocator" dos tape-recorder profissionais. ® 



Soft new 
Informatica 

PROGRAMAS PARA MSX E CP-400 

Mais de 1800 programas para MSX e 5.000 para 
CP-400 que agora voce podera encontrar nas 
seguintes lojas: 

Em SSo Paulo: 

* Filcril (Oil) 220-3833 

* Lima Informatica (Oil) 203-6022 

* Pro-Eletronica (Oil) 221-9055 

Em SSo Bernardo do Campo: 

* Golden Shopping Micro Stend (011) 448-6288 

PromopSes para o final de ano: 

- Fitas de Video DOMINANDO O MSX 

- Table News - a mesa com piano regulavel 

- Box News-Caixa c/capacidade para 70 disquetes 

- Monitor para MSX 

- Drives para MSX - 3 1/2 e 5 1/4 

- Cartoes de 80 colunas para MSX 

- SuperCalc II (Compucenter e Prineesware) 

- dBase II Plus (Datalogica e Prineesware) 



MSX DESIGNER 

Super Editor Grafico 
com 40 fontes de letras, 
saida para impressora 
em duplo tamanho com 
escala de cinza (somente 
em disco). 

Preco promocional ate 
31/12/ 88 :CzS 9.900.00 
seguindo com manual 
completo. 



SUPER N0VIDADES: 

- Langamos um jogo! O Super Snake II, tambem 
desenvolvido na Softnew. 

- Se voce for de Sao Paulo, visite- nos. Seu pedido sera 
feitonhora.e pedidos para fora de S.Paulo serao 
entregues em 7 dias. 

- Prazo de garantia para qualquer produto nosso: 

180 dias. 

-A Softnew implanta agora o S.A.U. (Servigo de 
Atendimento ao Usuario); um sistema tira-duvidas 
para auxilia-lo no que for necessario. 



Solicite catalogo totalmente gratuito e agora tambem 
com programas para MSX 2. 

SOFTNEW 

Rua Miguel Maldonado. 173 - Bairro Jd. Sao Bento 

S.Paulo -SP-T6l.: (011) 266-2902 - CEP 02524 



softneu mmrica 



ooRCsenrn 




DESIGNEE 



dor OLexonoRe Roonigues oa sxluo 
scrrsT* istcihatica ltda 
inrr<^f:(©l I) 266-2*02 - S. PAt*.© 
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Tem 3 bytes — 1 status byte + 2 bytes de dados: 
status byte — 1111 0010 (F2H) — byte identificador da mensagem. 
SONG SELECT — Permite a comunicapao entre um sequencer e uma 
drum machine na transmissao de programas (patch). Funciona comoo 
PROGRAM CFIANGE, emitindo o numero do patch. Tem 2 bytes — 

1 status byte + 1 data byte: 

status byte — 1 1 1 1 0011 (F3H) — byte identificador; 

data byte — Ovwww — SONG NUMBER, o numero correspondente ao 

patch desejado. 

TUNE REQUEST — Usado como funpao de RETUNE em sintetizado- 
res analOgicos midteveis. Tem 1 byte de status — 1111 0110 (F6H). 
END OF SYSTEM EXCLUSIVE - Determina o final da operapfo. 
Tem 1 byte de status — 11110111 (F7H). 

SYSTEM REAL TIME 

Os clocks, sSo usados pelos MIDI sequencers e drum machines para 
especificar a manter o andamento. Nos primOrdios da sincronizapao 
entre equipamentos, um problema bastante comum era devido a dife- 
renpa entre o circuito de clock existente nos diversos equipamentos. 
A execupao precise de uma musica depende inteiramente da medipSo 
precisa dos eventos que entram. 

Em um sequencer, o andamento ou tempo entra em geral em 
pulsos por minuto. Cada pulso 6 subdividido em pequenas partes 
(clock ticks), de forma semelhante a um metronomo que divide um 
minuto em um niimero especffico de batidas. Estas pequenas partes 
recebem diversas denominapoes: clock resolution, time base, clock 
rate, or PPQ (pulse per quarternote). O microprocessador do sequencer, 
estS constantemente fazendo uma varredura na porta MIDI IN para 
detectar se uma mensagem chegou. 

Quando uma mensagem MIDI chega ao sequencer ele a registrar^ 
com a precisab proporcional ao numero de clock ticks. Quando da 
execup3o do que foi anteriormente gravado, o sequencer usara o mesmo 
clock tick de quando a mensagem foi registrada. Para que dois equipa- 
mentos estejam sincronizados, eles devem utilizar o mesmo clock. 
Um equipamento que atuarS como master e emitira o clock para o 
slave. 

A MIDI utiliza um grupo especial de cOdigos para sincronizar 
instrumentos construidos por qualquer fabricante; estes cOdigos sSo 
chamados de SYSTEM REAL TIME MESSAGES. Abaixo uma lista 
completa deles: 

F8 — nenhum timing clock 
F9 — nenhum nSo usado 
FA — nenhum start 
FB - nenhum continue 
FC — nenhum stop 
FD — nenhum nao usado 
FE — nenhum active sensing 
FF — nenhum system reset 

Um sequencer ou uma drum machine emitirS um cOdigo para 
sincronizapao, chamado timing clock, atraves da porta MIDI OUT. 
O seu status byte 6 F8, e como todas as mensagens do system real 
time message, nao tem especificacao de canal, sendo usado para ende- 
repar todos os instrumentos do sistema MIDI. Para os instrumentos 
que nSo tem um circuito de clock, esta mensagem sera ignorada. 

Os sinais de START, STOP e CONTINUE tem cOdigos FA, FB e 
FC, respectivamente. O START 6 emitido pelo master a qualquer um 
do(s) outro(s) equipamento(s), devidamente sincronizado(s), a iniciar 
a execupao de um som que esteja localizado no infcio da sua memOria. 
0 STOP interrompe esta execupao, e o CONTINUE faz com que a 
execupSo seja retomada de um ponto qualquer apOs uma parada. 
Este comando 6 utilizado em situapoes em que voce quer executar 
apenas um pequeno trecho do que foi composto. 

Todos os MIDI sequencers e drum machines tem uma oppSO para 
sincronizapao. Esta oppaO incluirS a selepao de sincronizapao interna 
ou externa. Na oppao de sincronizapao interna, o equipamento usara 
o seu prOprio clock para determiner o tempo. Na oppSo de sincroniza- 
pao externa (chamado de MIDI sync, em alguns equipamentos) o 
equipamento utilizer^ o timing clock a partir do master. 

Mesmo enquanto o equipamento nSo esta tocando, o master estarS 
emitindo o timing clock, preparando o slave para iniciar no tempo cor- 
reto. Quando o START, STOP ou CONTINUE sSo acionados em um 
sequencer, um MIDI start byte 6 emitido junto com o timing clock 
para o sinalizar a drum machine a iniciar no mesmo tempo. 

0 ACTIVE SENSING foi criado para assegurar que nao haja pro- 
blemas com a receppao dos eventos enviados. Esta mensagem de c6di- 
go FEH A emitida cerca de 3 vezes por segundo (a cada 300 milisegun- 



dos). Uma vez que o instrumento comece a receber a mensagem ACTI- 
VE SENSING, ele calculard a sua prOxima receppao. Se a prOxima 
mensagem algum tempo depois nao chegar, o instrumento assumira 
que algum problema aconteceu. 

O SYSTEM RESET A um comando para chamar o instrumento 
receptor a voltar ao modo de operapao de quando ele foi ligado. 

MODE MESSAGES 

A MIDI usa modos para decidir exatamente como o sintetizador 
atuarS com relapao As informapoes acessadas. E como os outros MIDI 
controllers, trabalha somente com instrumentos colocados no canal 
MIDI apropriado. Nem todos os instrumentos possuem todos os modos. 
Um instrumento pode trabalhar somente em um ou dois modos, sendo 
que esses modos sao divididos em duas categorias: OMNI e POLY / 
MONO. 

O OMNI mode determina que qualquer sintetizador responded 
aos dados em um canal MIDI ou aos dados em todos os canais. 

OMNI on mode — O instrumento receptor executara todas as MIDI 
informapoes que a ele chegarem independente do canal MIDI. 

OMNI off mode — O instrumento receptor executar^ somente as 
MIDI informapoes em um simples canal ao qual ele esta ligado. 

As duas possibilidades do POLY mode (POLY c MONO), sao 
usadas para dizer a um sint como designar suas vozes internas (osci- 
ladores) para os MIDI eventos que sSo acessados. 

POLY mode - Os eventos acessados sSo enviados a multiplos oscila- 
dores, isto 6. notas que chegam a um sint vindo via MIDI, serSo tocadas 
polifonicamente em relapao ao numero de osciladores que o instrumen- 
to possui. 

MONO mode - Os eventos acessados sSo enviados a um oscilador 
monofonico. £ como tornar um sint polifonico juntando alguns sints 
monofonicos. Em cada um serA possfvel acessar seus prOprios patchs 
e transmitir em canais independentes. 

Combinando-se o OMNI mode com o POLY/MODE, teremos 4 
possibilidades de transmissSo em seus canais: 

MODE 1 — OMNI ON/POLY MODE. Com seu instrumento recebendo 
informapoes no modo 1, ele responder^ 3s MIDI informapoes em 
todos os 16 canais (OMNI ON). Este 6 o modo de operapSo bisico, 
onde um sint controlarS outro. A maioria dos equipamentos apresen- 
tam o mode 1 como default. 

MODE 2 — OMNI ON/MONO MODE. No modo 2 o instrumento ainda 
responderS em todos os 16 canais (OMNI ON), mas transferirS para 
um unico oscilador. Este modo 6 bom para instrumentos monofonicos, 
mas em equipamentos polifonicos 6 totalmente redundante. Ele tam- 
bSm facilmente se confundira tentando acessar todas as informapoes 
para um unico oscilador. Conseqiientemente ele nao estarS utilizando 
a maioria dos recursos do sistema MIDI, 

MODE 3 - OMNI OFF/POLY. Neste modo, o instrumento receptor 
"ouvirS" em um unico canal MIDI e ignorarS todos os outros. Instru- 
poes poiifonicas neste canal serao designadas usando o proprio algorit- 
mo interno. 

MODE 4 - OMNI/OFF/MONO. Neste modo o instrumento receptor 
"ouvirS" um determinado numero de canais e designari um oscilador 
para cada canal. Com alguns instrumentos voce pode especificar qual- 
quer combinapSo de canais que desejar. 



Neste Artigo. s6 considerei os comandos mais basicos utilizados em MIDI. 
Questoes relativas a SMPTE. Sampler Dump Request. MIDIFILES (padroni- 
zado na Ultima NAMM em Atlantal, ou mesmo os compiladores. MIDIBA- 
SIC. MIDIPASCAL ou atA MIDI C'. 

Estes importantes itens. n3o foram vistos pela total falta de material ticnico 
substancial. Portanto. eu fico devendo isto a voces ok. 
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Custos baixos e eficiencia estao na moda 
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A REN ASCE — empresa respon- 
savel pela administrate) do Barra- 
shopping, do Morumbi Shopping, do 
Parkshopping e dos Shoppings Belo 
Horizonte e Ribeirao Preto — au- 
mentou sua capacidade de trabalho 
ao adotar o software Contabilidade 
Gerencial Intelsoft. E voce pode fazer 
o mesmo com apenas um micro tipo 
PC. 



Sua empresa terd maior 
controle financeiro 



Com o software Contabilidade 
Gerencial voce vai acompanhar de 
perto as contas de sua empresa, 
sempre atualizadas. As vantagens 
nao tem pre<;o — voce ganha inde- 
pendence, certeza do trabalho bem 



A contabilidade do Barra- 
Shopping agora e melhor e 
mais facil. 



feito, rapidez, balancetes atualizados 
e seguranqa (com senhas de acesso, se 
quiser). 



Este shopping 
inteiro esta 
funcionando 
melhor gragas 
ao software 
Contabilidade 
Gerencial. 



O software Contabilidade Geren- 
cial e o mais completo sistema do 
genero porque e multiusuario (su- 
porta lanqamentos simultaneos mes- 
mo), com versdes para Unix e redes. 
Possui poderoso gerador de relato- 
rios e de langamentos. A capacidade 
de registros e ilimitada; varios perio- 
dos podem ser operados simultanea- 
mente; periodos passados podem ser 
alterados, a qualquer momento. 

Quern mais jd esta usando a 
Contabilidade Gerencial? 

Muitas outras administradoras de 
shoppings, como a Centervale, de 
Sao Jose dos Campos, o Shopping 
Barra de Salvador, o Conjunto Na- 
cional Brasilia, os Centros Comer- 
dais Recife, alem de empresas como 
a Mesbla, Casual Corner, Chocolate 
Roupas, Koff Magazine, Lojas Glo- 
bo, Mundo dos Plasticos e Walu Ma- 
lhas. 

Pepa folhetos e maiores 
informagoes pelo telefone 
( 021 ) 265-3346 

I NTELSOFT 



Quanto custa? 



Para usar o Contabilidade Geren- 
cial voce precisa apenas de um micro 
PC. O software custa 180 OTNs, 
dentro da realidade de sua empresa, 
incluindo serviqo de consultas pelo 
telefone direto com a Intelsoft, que 
possui mais de 600 softwares de 
Contabilidade Gerencial instalados 
em todo o pais. 



Por que a RENASCE 
escolheu a Intelsoft? 



Porque agora a RENASCE pode 
definir scu Plano de Contas como 
quiser, alem de efetuar conversao pa- 
ra dBase III, Lotus, ou programas em 
qualquer linguagem. Sempre com 
performance muito acima do padrao 
existente no mercado, com volumes 
como 10 mil contas e 80 mil lanqa- 
mentos mensais 
sem degradaqao. 



Intelsoft Informatics Ltda 
Praia do Flamengo, 66 sala 1114 
22210 Rio de Janeiro RJ 
Telex (021)37416 ISOF 





Produtividade em software 



O s computadores )& fazem 
parte do nosso dia-a-dia as- 
sim como o automovel. 
Muitas tarefas realizadas ho- 
je seriam inconcebfveis sem o emprego 
deles, devidamente programados, e cla- 
ro. Sem sombra de duvidas, qualquer 
indivi'duo vivendo em uma sociedade 
moderna utiliza-se direta ou indireta- 
mente dos recursos oferecidos por esta 
maquina. 

No im'cio o hardware era enormente 
mais caro que o software. Mas o custo 
de produpao do primeiro foi progressi- 
vamente sendo reduzido enquanto o 
custo do segundo sd tern aumentado. 




WlSTEMAS 
(jNTEGRADOS 
j^ATURALMENTE 
(gOMPATIVEIS A 

(JiRGANIZApAO 

APRESENTA 
IMA GEM GRAFICOS 

0 prim tiro Desktop presentation 
5 tnum aments naaonai t 
o Micro PC com qualidade 
international CQNI-XT. 

A conraltoria qua esta a sea 
la do im tod as as koras . 

PE£A UMA VISITA ! ! 

sinco _ Informatica 

e Consul toria Ogamzaaonal 
AV. Paranapuan. 1669, */201- 
Rio de Janeiro - RJ - CEP: 21931 
Ttls.: (021) 393-6763 396-5651, 
222-2965 e 232-0161 



Elias de Oliveira 



CRISE DO SOFTWARE 

0 fenomeno, "crise do sofwtare", e 
caracterizado pelo crescente aumento 
no custo de produpao de sistemas en- 
quanto o de hardware, por exemplo, 
sofre constantes redupoes. J4 desde a 
d§cada de 70 pesquisadores e profissio- 
nais procuram minimizar os custos de 
produpao e maximizar a qualidade no 
desenvolvimento de programas. 0 uso 
de linguagens mais poderosas, tais como 
Pascal, C, Modula-2 e Ada, tern diminul - - 
do em muito o problema de falta de 
clareza, a falta de documentapao e a 
falta de portabilidade na construpao 
de programas. 

Programar estruturadamente tambem 
contribui grandemente para o aumento 
da produtividade. Cabe aqui ressaltar 
que nas linguagens modernas e quase 
impossfvel nao se programar estrutura- 
damente. Entenda-se por produtividade 
a capacidade de se construir urn produto 
de qualidade em menor tempo. 

Mas para quern acha que programa se 
constrdi com apenas maquina e uma 
linguagem de programapao, deve achar 
tambem que para se quebrar asfalto 
basta uma picareta. 

ESTUDO DE CASO 

Analise do problema: "Construir urn 
programa com vdrias tela de entrada de 
dados e estas contendo campos com 
recursos de edipao tais como modo de 
inserpSo/overwrite, delepao de caracter, 
cursor para o im'cio/final do campo, 
etc." Algumas atitudes podem ser toma- 
das: 

a) Muitos partem para desenvolverem o 
programa do zero. 

b) Outros tiram da gaveta rotinas feitas 
em programas anteriores, modificando o 
eddigo para se adequar a nova aplicapao. 

c) Alguns utilizam bibliotecas pr6-defini- 
das para data entry. 

0 primeiro deve achar o ditado "ti- 



me is money" apenas converse de Ame- 
ricano para boi dormir. 0 programa des- 
te demorar^ a ser conclufdo e a possibi- 
lidade de haver erro de implementapao 
serS enorme. O segundo, urn pouco mais 
sensato, nao se deu conta que a generali- 
zacao de rotinas pouparia seu tempo e 
portanto aumentaria sua produtividade. 
Se a cada novo programa houver a ne- 
cessidade de se alterar o eddigo de iei- 
tura de algum campo, o tempo para 
conclusao do software se alongara e a 
possibilidade de erro e introduzida a 
cada modificapao. 

0 terceiro sabe que a questao de 
prazo e extremamente importante e que 
a qualidade nao deve ser prejudicada. O 
uso de bibliotecas de funcoes, sem duvi- 
da, o poupara de muitas dores de cabe- 
pa. Para exemplificar, o uso de biblio- 
tecas de rotinas para data entry em C 
me possibilitou cumprir urn prazo 
de uma semana para a construpao de 
um software, o que de outra forma 
levaria um mes ou mais. 

CONCLUSAO 

Desta forma, o programador ao 
iniciar seus trabalhos de definipao 
de programas deve verificar tambem 
se possui ferramentas adequadas 
para realizar tal tarefa. Na maleta 
de ferramentas de qualquer programa- 
dor nao deve faltar uma boa bibliote- 
ca de funpoes de rotinas de entrada de 
dados; um bom editor para programas; 
um bom banco de dados e um formata- 
dor de programas-fonte com referenda 
cruzada de variaveis. 

E no mais, e bom sempre ter em 
mente que a reivenpao da roda invaria- 
velmente custard mais e levari mais 
tempo para implementapao. 



■ 
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Software 



Se voce pretende utilizar o seu micro PC compativel 
como apoio visual para uma reuniao ou palestra, 
entao conheca um novo sistema que podera ajuda-lo em muito: 
o Imagem £t Graficos, da Imagem Informatica. 



um 



Imagem & Graficos: 
software sob medida 



Nao sao poucas as vezes em que o PC 
pode prestar um inestimivel apoio visual 
para quern pretende expor id4ias, demons- 
trar produtos ou ilustrar uma reuni*) de di- 
retoria com os dados referentes 4 performan- 
ce de uma empresa. 

Coisas como retroprojetor e quadro-ne- 
gro j4 estao sendo aposentadas, ap6s anos de 
vaiorosos servipos, cedendo espapo ao micro- 
computador que. com sua dinSmica similar a 
um programa de TV, pode economizar tempo 
entre a apresentapSo de um conceito e a sua 
assimilapao pela plat4ia. 

Mas para Isso o profissional precisa de 
um software de apoio que permita criar, dese- 
nhar e editar graficos e sequencias de uma ani- 
map*>. Embora seja possfvel produzir alguma 
coisa diretamente no micro, faze-lo sem um 
software de apoio pode tornar a tarefa tSo 
cansativa que 4 melhor voltarmos ao retropro- 
jetor. 

Se voce compreende isso e j4 t eve alguns 
dissabores ao longo da sua vida profissional, 
entao conhepa o primeiro sistema genuina- 
mente nacional que foi feito sob medida para 
este tipo de aplicapao: o Imagem &Graficos, 
da Imagem InformStica Ltda. 

CONHECENDO O IMAGEM &GRAFICOS 



GPftFICO DE BfWRftS 3D 




Tela de procedimento e exerriplo de grafico 
em 3D 



nhecimento de operapao de microcomputado- 
res pode utilizar com sucesso o software. 
Quanto 4s ilustrapoes, como nSo poderia dei- 
xar de ser, um pouco de talento se faz neces- 
s4rio. A vantagem 4 que o programa permite 
graus diversos de complexidade das ilustra- 
p6es, o que d4 ferramentas ao usu4rio mais ta- 
lentoso. 

Outro ponto alto 4 a documentapao do 
programa. O manual do sistema 4 bastante 
completo e nao deixa duvidas com relap*) a 
nenhuma das fases de operap*) de cada um 
dos mbdulos. Alem disso, quern j4 andou se 
aventurando com o Storyboard nSo ter4 ne- 
nhuma dificuldade para se adaptar, nem para 
adaptar qualquer ilustrap*) j4 produzida. 

E certo que o programa nSo possui a 
mesma versatilidade e complexidade do Sto- 
ryboard. Mas talvez resida af a sua principal 
virtude, ja que isto nao afastara os usu4rios 
menos experientes. 

A unica falha sentida foi com relap*) 
aos modos de impress*) da tela. Embora 16 
modos estejam disponlveis, faltam alguns de 
maior beleza e impacto visual, como por 
exemplo a impress*) do quadro na tela acen- 
dendo-se aleatoriamente os pixels que o corn- 
poem. Mas isso e um detalhe que nao deprecia 
de forma alguma o sistema. 



0 sistema IMAGEM 4 um software to- 
talmente gr4fico, com recursos de desenhos, 
cores, textos e gr4ficos, permitindo ainda 
apresentapoes de sequencias na tela do micro- 
computador em forma de estbrias, podendo-se 
controlar o m4todo de abertura, isto 4, o efei- 
to associado a colocapao do quadro na tela e a 
passagem para o proximo quadro. 

Outras caracterfsticas interessantes sao a 
capacidade de manipular legendas dinamica- 
mente associadas aos quadros exibidos, e um 
sistema de help on-line que o torna bem ficil 
de operar, mesmo por usu*ios com pouca ex- 
perience. 

0 sistema 6 dividido em quatro mbdulos, 
cada um com funpoes especfficas. O primeiro 
deles 6 o MGDULO DESENHO, que possui 
todas as ferramentas necess4rias para a prepa- 
rapSb de uma ilustrap*). Possui ainda v*ios 
recursos como uma biblioteca de sfmbolos e 
diversos tipos de fontes tipogr4ficas diferen- 
tes. 

0 segundo 4 o MODULO GRAFICOS. 
que funciona como apoio ao m6dulo de de- 
senho, permitindo preparar graficos de forma 
instantanea, al4m de importar desenhos cria- 
dos com outros aplicativos e proceder 4 im- 
press*) das telas. 

O terceiro 4 o M6DULO EDITOR, que 
possui recursos para a edipao de sequencias de 
quadros, associando os efeitos de abertura e 
legendas para cada quadro. Este mbdulo con- 
t4m tamb4m um programa que possibilita ao 



usu4rio preparar suas proprias bibliotecas de 
sfmbolos. 

O ultimo mbdulo 4 o MGDULO EXIBIR. 
Atrav4s dele 4 que serao apresentadas na tela 
do micro as seqiibncias editadas pelo m6dulo 
anterior. 

Para rodar o sistema basta possuir um PC 
com memdria minima de 384 Kb, interface 
gr4fica padrao CGA (Color Graphics Adapter) 
e uma unidade de disco flexfvel, embora seja 
preferfvel dispor de duas unidades de disco 
flexfvel ou uma unidade de disco flexlvel e 
uma de disco rfgido: isto proporciona maior 
comodidade de operapao. 

O sistema operacional pode ser o 
MS-DOS/SISNE (ou qualquer outro compati- 
vel), versao 2.0 ou mais recente. As safdas im- 
pressas s*> do padrSo Epson. 

TESTANDO O IMAGEM &GRAFICOS 

O sistema foi testado em nosso CPD sob 
a configurapao de um XT 2001 da Microtec e 
duas unidades de disco flexfvel. 

Foram criados dois gr4ficos de barras em 
tres dimensdes e uma seqiibncia de quadros 
de demonstrap*) de um hipotetico produto. 
Todas as operapoes necess4rias para a criapao 
das ilustrapoes, gr4ficos e sequencias de qua- 
dro foram consideradas satisfatbrias e de f4cil 
aprendizado. 

Realmente este 4 um ponto altb do siste- 
ma: qualquer pessoa com um mfnimo de co- 



CONCLUSAO 

Devido ao exato dimensionamento e 4 
facilidade de operapSo, o sistema IMAGEM 
mostrou que pode ser aplicado como uma po- 
derosa ferramenta de apoio onde haja necessi- 
dade de comunicapao visual, notadamente em 
empresas, escolas, casas comerciais e agendas 
de publicidade. 

Praticamente tudo, desde uma simples 
palestra at4 demonstragoes de produtos ou 
apresentapao de promopoes numa loja, pode- 
r4 ser realizado com o sistema IMAGEM, com 
um resultado mais direto e abrangente. 



Anafise de Luiz F. Moraes 



FICHA TECNICA 



Nome: Imagem &Gr4ficos 
Linha: IBM-PC 

Distribuidor; Imagem lnform4tica Ltda. 
Vendas: Sr. Jos4 Luiz 
Telefone: (021) 234-7902 
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Multiplos parametros da funcao USR 



O BASIC e uma linguagem de 
muitas qualidades e outros 
tantos defeitos. Quern progra- 
ma nessa linguagem, seja em 
que micro for, esbarrou certamente na 
mais terrfvel de suas limitapoes: a lenti- 
dao. Essa barreira, tfpica das linguagens 
interpretadas, revela-se particularmente 
inconveniente quando se trabalha com 
transference de blocos, isto e, quando 
se quer transferir uma grande quantida- 
de de bytes de uma area para outra da 
memoria. 

Os micros MSX, apesar da profusao 
de potentes comandos de que dispoem, 
n§o fogem a regra. A situapao torna-se 
mais crftica quando se vai trabalhar com 
a VRAM, a memoria de vi'deo. Mesmo 
com o uso do comando VPOKE e da 
funpSo VPEEK, que acessam diretamen- 
te essa Srea, tais recursos sao ex-tre-ma- 
men-te lentos quando se quer enviar 
uma quantidade razoavel de dados da 
memoria para a VRAM ou vice-versa. 

Em virtude dessa e de outras barrei- 
ras, os desiludidos programadores deses- 
peram-se sem saber se abandonam de 
vez o BASIC e passam a trabalhar so- 
mente com linguagens compiladas (o 
Pascal, por exemplo) ou se deixam-se 
ficar para tr^s, cada vez mais para tr5s, 
vendo outros programadores passarem a 
jato por eles. 

Uma outra solupfo, cuja simples 
menpao faz a maioria tremer de pavor 
(como numa sabatina de matematica) 
6 a programapSo em linguagem de mi- 
quina. No entanto, se encarada nao co- 
mo um fim em si mesma, mas como urn 
recurso d disposipSo do BASIC, a lin- 
guagem de maquina pode envenenar o 
velho motor do BASIC, de modo a con- 
ferir-lhe uma velocidade que muitos 
nem ousavam sonhar. Surgem assim os 
programas hfbridos BASIC/LM, verda- 
deiros fords-bigode movidos a motor 
turbo. 

Existem basicamente duas formas 
de acessar rotinas em LM a partir de um 
programa BASIC: o comando CALL 
(um potentfssimo recurso cujo estudo 
ficar4 para outra oportunidade) e a fun- 
pao USR, que e o que estudaremos a 
seguir. 

A FUNQAO USR DO MSX 
As caracterfsticas desta "estreita 



Roberto Medeiros 



passagem" para a linguagem de maquina 
sao as seguintes: 

1) E uma funpao e nao um coman- 
do. Nao se pode comandar USR (0) co- 
mo quern diz CLS. Uma funpao deve vir 
precedida de um comando: PRINT 
USR (0) por exemplo. 

2) Para poder executar uma rotina 
em LM, o BASIC precisa saber qual o 
seu enderepo na memoria. Isso se faz 
atraves do comando DEFUSRn = EN- 
DEREQO DA ROTINA. Por exemplo: 
DEFUSR5 = 192. 0 "n" que aparece 
ao lado de DEFUSR pode variar de 0 a 
9, de modo que o BASIC pode conhe- 
cer o enderepo de at6 10 rotinas ao mes- 
mo tempo. 

3) Finalmente o mais importante:e 
possfvel passar ARGUMENTOS para as 
rotinas em LM atraves de USR (os "ar- 
gumentos" sao valores ou strings que 
poderao ser utilizados pela rotina). Para 
isso basta colocar tal argumento entre 
parenteses, logo ap6s a chamada de USR. 

Vejamos o que acontece quando se 
comanda, por exemplo, A = USR3 
(X *3 + Y) (supondo que \i se tenha 
previamente informado ao BASIC o en- 
derepo da rotina USR3): 

1 ) 0 resultado da expressSo X * 3 + Y 
e calculado (provavelmente ele seri do 
mesmo tipo da vartevel A — inteiro, pre- 
cisao simples ou precisSo dupla). Este 
valor e entao copiado, de forma codifi- 
cada, na area da memoria entre os ende- 
repos &HF7F6 e &HF7FD. A rotina LM 
correspondente a USR3 e executada. 

2) Apos a execupao da rotina, a va- 
ridvel A receberS o valor que estiver con- 
tido nos mesmos enderepos j & citados. 
Logico esta que caso o programador 
queira receber uma informapao do BA- 
SIC ou passar uma informapSo, deve fa- 



zer a sua rotina em LM ter acesso aos re- 
feridos enderepos, lendo-os e/ou modi- 
ficando-os, tomando absoluto cuidado 
com o tipo de dados que \& se encon- 
tram. 0 enderepo &HF663 indica esse 
tipo: seu conteudo e 2 para valor intei- 
ro, 3 para string, 4 para precisSo simples 
e 8 para precisSo dupla. 

Esta forma de troca de dados, ape- 
sar de prStica, esbarra num empecilho: 
so aceita um argumento de cada vez. A 
expressao PRINT USR7 (X *3,Y) cer- 
tamente acarretarS uma mensagem de 
erro, uma vez que o BASIC simples- 
mente n£o saberES o que fazer com Y. A 
alternativa imediata 6 fazer um POKE 
na membria com os outros valores que 
se quer passar para a rotina. Esse proces- 
so geralmente e lento e torna-se confu- 
so ao se tentar entender o programa pos- 
teriormente. 

PRINT USR3 (0), A, 30, VAL (AS) 

Quando se escarafuncha o miolo 
do BASIC-MSX, acaba-se por descobrir 
atalhos que podem abrir uma nova pers- 
pective para o programador. Torna-se 
assim perfeitamente possfvel passar mais 
de um argumento para uma rotina em 
LM desde que a rotina saiba onde e co- 
mo ter acesso a esses argumentos. Uma 
funpao aparentemente esdruxula como 
"A = USR (0), X, Y, Z", que normal- 
mente acarretaria um belo erro de sin- 
taxe, pode ser facilmente implementa- 
da quando se conhece os hcibitos do 
MSX. 

Vejamos que habitos sSo esses, isto 
6, o que faz o BASIC quando encontra 
uma chamada USR: 

a) Primeiro o BASIC analisa a ex- 
pressSo entre parenteses e armazena o 
resultado, como ji foi dito, 



SCREEN 1: 
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SCREEN2 : 
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Listagem 1 



ORG OFOOOH 



(SP) .HL 



RST 08 
DEFB 

CALL 520FH 
PUSH DE 
RST 08 
DEFB 1 . ' 

CALL 520FH 
PUSH DE 
RST 08 
DEF3 

CALL 520FH 
PUSH DE 

POP BC 
POP DE 
EX (SP) .HL 

CALL 5CH 



POP HL 
EX (SP) 
JP (HL) 

END 



(SP) ,HL 
(HL) 



Tira da pilha o enderego de retorno 
ao BASIC e coloca em HL 
Troca o valor que esti em HL com 
o proximo valor na pilha 

Chama o analisador 
Cddigo ASCII da vlrgula 
Peaa o valor de ORG 
Coloca-o na pilha 
Verifica sintaxe 

Pega o valor de DEST e 
POe na pilha 
Checa sintaxe 

Pega o valor de QT 
E p5e na pilha 

BC-QT 

Guarda o apontador de texto na pilha 

e faz HL-ORG 

Transfere 

HL-apontador do texto 

Pi lha-apontador . HL-retorno ao BASIC 
Retorna 



b) A seguir e guardado na pilha o 
enderepo do proximo caracter da linha 
em BASIC que estci sendo interpretada. 
Ap6s a execupao de USR essa linha con- 
tinuara a ser lida, caracter por caracter, 
a partir desse enderepo (a pilha e uma 
cirea da memoria usada pelos programas 
em LM para guardar dados importan- 
tes mas transitorios, como enderepos de 
retorno de sub-rotinas, etc.), 

c) 0 enderepo que serS executado 
apos o retorno da rotina USR tambem 
e guardado na pilha; 

d) Finalmente o BASIC faz urn JP 
(jump = salto) para o enderepo da rotina 
USR que est^ sendo chamada. Em ou- 
tras palavras, executa a rotina. 

Ao ter a sua rotina executada, e co- 
mo se o programador tivesse controle 
total do micro. Literalmente o progra- 
mador podera fazer o que Ihe der na ve- 
neta: desativar o BASIC, provocar urn 
CRASH no computador (o que vez por 
outra acontece, mesmo sem querer), 
criar novos comandos ou, o que e nossa 
intenpao: passar a perna no BASIC. 

PASSANDO A PERN A 

0 leitor mais experiente ter & certa- 
mente "sacado" nossa estrategia: recu- 
perar na pilha o apontador da linha que 
esta sendo interpretada (e que foi guar- 
dada la na etapa "b" da explicapao ante- 
rior). De posse do referido enderepo sera’ 



ficil (serd mesmo?) ter acesso direto aos 
argumentos, sucessivamente. 

Apos a execupao da rotina o tal 
apontador deveri ser guardado em seu 
lugar de origem, ja devidamente atuali- 
zado, como ilustra o exemplo: 

a) Ao ser chamada a rotina, o 
apontador estara "apontando" para a 
primeira vfrgula apos o parenteses: 
"A = USR (0), X, Y: PRINT A" 

A 



b) Apos a execupao da rotina, o 
apontador estar^ indicando o delimita- 
dor (ou para FIM DA LINHA, caso 
nao haji outros comandos naquela li- 
nha): 

"A = USR (0), X, Y: PRINT A" 

A 

Para ilustrar o que foi dito acima, 
montaremos passo-3-passo uma rotina 
cuja funpao seja transferir para a memo- 
ria de vfdeo uma determinada quantida- ® 
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Pedldos *ia Correio 

• Por cant, o pedido minimo sera de 7 programas. 

• Use os numeros dos programas como referenda. 

• O preen das filas (ou discos) para graracao serio 
cobrados a parte: cabem, no maximo, 9 programas eir 
cada uma. 

• Nio deixe de colocar. no eorelope, aeua dados comple- 
tes. 

• Pague com cheque nominal ou Vale-Postal. 

• As despesas de retorno correrio por nossa roots. 

• Nosao catilogo e complelo e grads: * ad pedlr. 

• Pedidos acima de Cl* 3.000,00 e Soft Wares d»o dlrei- 
lo a 2 jogos ou 1 coplador inleiramente gratis (meociooe 
seus numeros). 

• Pecs tambem por telefone ou •eoha peasoalmrute. 

• Hosts caixa Post* 1 2009 - Cdp. 020M/ Mo Pluto/ 



ECTRON ELETRONICA LTDA. 

Rua Dr. Cesar, 131 
Metro Santana - S. Paulo/ SP 

Tel.: 290-7266 




de de bytes (podem ser os dados de uma 
tela de abertura ou coisa parecida). A 
chamada a esta rotina serS: "B = USR (0), 
ORG, DEST, QT" onde: 

ORG = ExpressSo numerica corres- 
pondente ao enderepo inicial da memo- 
ria de onde serSo transferidos os bytes; 

DEST = ExpressSo numerica corres- 
pondente ao enderepo inicial da VRAM 
para onde serffo transferidos os bytes, 
QT = Quantidade de bytes a trans- 
ferir. 

Para fazer a transference, nossa ro- 
tina chamara uma rotina do proprio 
BASIC, conhecida tecnicamente por 
LDIRVM, cujo enderepo inicial e 
& H5C. Para chamS-la e necess^rio que o 
par HL contenha o valor de ORG, o par 
DE contenha o valor de DEST e o par 
BC o valor de QT (registradores sSo co- 
mo caixas dentro do processador, e ser- 
vem para guardar valores). 

A listagem 1 contem a rotina co- 
mentada, dividida em quatro partes: 
a - recuperaqAo DO APON- 
TADOR DE TEXTO; 

B - ACESSO AOS VALORES E 
"CHECK" DE SINTAXE; 

C - EXECUGAO DA ROTINA 
LDIRVM; 

D - RETORNO AO BASIC. 
A seguir, alguns comentarios so- 
bre cada uma das etapas: 

Etapa A: as duas instrupoes desta 
etapa servem para tirar da pilha o apon- 
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O melhor clube do Brasil 
oferece para voc6 o mais 
completo acervo de programas 
para se Apple II + lie. 
Ficando sdcio voc§ vai usufruir 
melhor seu Apple. 
Escreva para 

Caixa Postal 62521 

CEP 01295 - Sao Paulo - SP. 



Listagem 2 



1 0 CLEAR200 , &HEFFF : GOSUB 1 000 
20 COLOR! , 15, IS: CLS 

30 SCREEN0: WIDTH40:LARG=40: TAM=24*LARG: T 
ELA-BASE (0) 

40 E-0 • Endcroco InlCl.l 

S0 A*BTICK<0> 

60 1FA-1ANDE.-LARGTHENE-E-LARG 

70 IFA=5ANDE<=65536!-TAM-LARG THENE=E*LA 

RG 

80 A-USR (01 , E*65536 !« (E> 327671 , TELA, TAM 
90 GOTO30 
100 • 

1000 FORA-S.HF000TOS.HF01C 
1010 READB® : PGKEA, VAL ( "8,H’‘+B® 1 
1020 NEXT! DEFUSR-&HF0M 
1030 RETURN 

1040 DATA E1,E3,CF,2C,CD,0F,32,DS 
1030 DATA CF,2C,CD,0F,32,D3,CF,2C 
1060 DATA CD. 0F, 52, DS, Cl , D1 , E3, CD 
1070 DATA 5C, 00, £ 1 , E3, E9 



tador de texto e coloca-lo no par HL, de 
modo a que possamos ficar de olho na 
linha do BASIC. 

Etapa B: esta etapa, a mais extensa, 
verifica se os valores estao separados por 
vfrgula, fazendo o que se chama "che- 
ck" de sintaxe. A seguir os valores de 
ORG, DEST e QT s£o sucessivamente 
colocados na pilha para que possam ser 
usados poster iormente. 

Para checar a sintaxe usa-se o "ana- 
lisador sintatico" do proprio BASIC, 
cujo enderepo e & H08. A instrupao usa- 
da para chamd-lo e RST 08, uma instru- 
pao do Z-80 que ocupa apenas 1 byte, 
ao inves dos 3 ocupados pelo tradicional 
CALL 0008. O proximo byte apos o 
RST 08 e o codigo ASCII do caracter 
que se espera encontrar na linha analisa- 
da — no nosso caso, a vfrgula. O analisa- 
dor com para este byte com o que esta 
sendo apontado por HL. Se forem 
iguais, o programa continua normalmen- 
te; se forem diferentes, a rotina de erro 
do BASIC e executada e o programa 
aborta. 

Para se ter acesso aos argumentos 
existem basicamente 3 rotinas, tambem 
do proprio BASIC, que podem ser utili- 
zadas — uma para cada faixa de valor. 
Essas rotinas se encarregam de realizar 
os calculos que existirem e retornam o 
valor encontrado no par DE, aproveitan- 
do para atualizar o apontador de texto 
(umas danadinhas, essas rotinas...). No 
entanto, caso a faixa de valor seja ultra- 
passada, BEEP e... OVERFLOW! 

Com voces, as rotinas: 

& H521 C — Retorna em DE e em A 
urn valor entre 0 e 255; 

& H520F — Retorna em DE urn 
valor entre -32768 e 32767; 

& H542F — Retorna em DE um nu- 
mero de 0 a 65535. 

Note que na nossa rotina o check 
de sintaxe e repetido para cadaargumen- 
to, e que a rotina chamada e & H520F. 

Etapa C: simplesmente retira da pi- 
lha os parametros que la estao, com o 
cuidado de nao destruir o conteudo de 
HL. A seguir e simplesmente executada 
a LDIRVM. 



Etapa D:finalmente, apos a transfe- 
rence dos bytes, tratemos de arrumar as 
coisas de modo que fique tudo como de- 
veria estar. Caso as duas instrupoes dessa 
etapa nib fossem executadas, haveria 
um tremendo de um CRASH com con- 
sequences realmente imprevisfveis. 

UTILIZANDO A ROTINA 

Para que possamos fazer uso de nos- 
sa rotina, e preciso dar a ela um "esque- 
leto" em BASIC, que seri a listagem 2. 
Ao ser rodado, este programa inicial- 
mente protege uma 3rea da memoria 
com o comando CLEAR 200, &HEFFF 
que separa 200 bytes para as strings e in- 
forma ao BASIC que a partir de 
& HF000 existe uma "area proibida". 
A seguir ele pokeia os bytes da rotina 
na memoria e define o enderepo inicial 
da rotina com DEFUSR = & HFOOO. 

A parte do programa que realmen- 
te utiliza a rotina esta entre as linhas 20 
e 90 (inclusive). Com as setas voce movi- 
menta uma janela pela memoria, obser- 
vando "in loco" o conteudo da mesma. 
Para mudar o modo grafico modifique a 
linha 30 segundo os dados da figura 1. 

Depois de se acostumar com a roti- 
na, bole uma utilizapao para ela dentro 
de um jogo, aplicativo ou utilitario de 
sua autoria. Para torni-la mais poderosa 
voce pode fazer algumas modificapoes. 
Por exemplo, ela poderia transferir tam- 
bem os dados da VRAM para a RAM. 
Tudo depende de um pouco de coragem 
e experience (caso esteja interessado, a 
rotina do BASIC que transfere dados da 
VRAM para a RAM e a LDIRMV, que 
inicia no enderepo & H59, sendo os seus 
parametros de entrada identicos aos de 
LDIRVM). 

CONCLUSAO 

Os princfpios utilizados no exem- 
plo deste artigo podem ser usados para 
qalquer outra rotina, com pouqufssimas 
alterapoes. Tudo depende de criativida- 
de, experimentapio e persistence. O 
que foi visto aqui nio chega nem mes- 
mo a ser a ponta do iceberg. Existe 
muito, muito mais para ser visto e des- 
coberto, e espero poder compartilhar 
dessas descobertas. 

Ate a proxima! 
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MICRO SISTEM AS 





APROVEITE! 



ESTA E A SUA CHANCE DE ADIQUIRIR OS 
MELHORES SOFTS DO MERCADO. 



MS DESTAQUE 

LENDA DA GAVEA (LANCAMENTO) 

2,00 OTNS 

PRO-KIT - FILES (LANCAMENTO) 

Arquivo que permite a organizacSo do conteudo de cada um dos disquetes, ca 
taloqando e fornecendo informapoes sobre toda a biblioteca de software do 
usuSrio. 

2,50 OTNS 

GRAPHOS III VL. 2 

E o mais poderoso editor grjfico nacional. Permite a criapjo de aberturas, dese- 
nhos e shapes, alfabetos especiais, etc 3.0 OTN 

ALFABETOS N? 1 

Banco de alfabetos para o GRAPHOS III, contendo mais de 30 alfabetos tama- 
nho padrSo e diversos alfabetos para titulos 1.5 OTN 

DIGITAL BOOK N? 1 

Lancamento infedito. Uma nova maneira de usar o seu computador. O livro digi- 
tal que vai revolucionar a informatics editorial 2,5 OTN 

PRO KIT ZAPPER 

A ferramenta de todo usuSrio de drive. Permite ordenar os arquivos de discos, 
verificar e editar os setores, trilhas, testar a velocidade de rotacSo do drive, etc. 

2,5 OTN 

PRO KIT SCANNER (LANQAMENTO) 

Sistema de pesquisa e coleta de figures e desenhos. 0 SCANNER examina os 
arquivos, do disco, de forma conjunta ou independente. Os desenhos, sprites 
e shapes s3o arquivados num disco compativel com o GRAPHOS III e DESK-3 
2.5 OTN 

GRAPHOS - SHAPES 1 (LANQAMENTO) 

Coletanea de shapes e desenhos de arquitetura, eletronica, selos e vinhetas. 
1,5 OTN 

GRAPHOS - TELAS 1 (LANQAMENTO) 



Telas prontas para uso em programas do usudrio 1.5 OTN 

SISTEMA EDITOR V.3.4 

Crie o seu prdprio adventure com este editor de jogos 4.0 OTN 

AMAZONIA 

0 mais famoso adventure nacional 1.5 OTN 

SERRA PELADA 

A fortuna o espera em SERRA PELADA e vocS nem precisarS sujar as mSos. 
Possui um sistema de mapas 1,5 OTN 



LIVR0S 

INTRODUQAO a linguagem de MAQUINA - MSX 


CZS.2.340,00 


OICAS, MACETES E PROGRAMAS EM ASSEMBLY-MSX 


CZS.1 .885,00 


DOS 3.3 DICAS E MACETES (N.EDiqAO) 


CZS.2.340.00 


WORDSTAR-GUIA COMPILADO DO USUARIO 


CZ5. 1.300,00 


TURBO PASCAL: MANUAL BASICO DE REF. 


CZS.4.030,00 


DBASE II PLUS P/ MSX S/MISTERIOS 


CZ$ .2. 795.00 


20 JOGOS INTELIGENTES APPLESOFT 


CZS.1. 560. 00 


DBASE III PLUS INTERATIVO 


CZ5. 2.964,00 



DISQUETES 

5 14 polegadas 

DUPLA FACE. DUPLA DENSIDADE 6.0 OTN 



LINHA MSX 

BUC - COMPOSER 

Escreva cartas, trabalhos escolares, pequenas publicidades, etc. com sua impres- 
sora matricial. podendo optar entre 35 tipos de caracteres diferentes, alem da- 
queles que o programa Ihe permite criar. Um excelente processador de textos 
com incriveis gtSficos. 

3.0 OTNS 

TRANCA - FILES 

Esconde arquivos no diretorio e protege programas. 

1.5 OTN 

BUC - COPY 

Um otimo copiador acompanhado de um excelente manual. 0 livro negro da Pi- 
rataria, que ensina tudo sobre copias em fita. 

1.0 OTN 

BUC - SYNTH 

Uma verdadeira mesa de som para voce colocar efeitos sonoros em seus progra- 
mas em Basic 

1.5 OTN 

SUBLIM 

Ainda nSo proibiram'" Nio 6 hipnotismo. Fapa experimentos com mensagens 
subliminares no video do seu MSX 

1.5 OTN 

PROPAGANDA ELETRONICA 

Agora muito mais atrativos. Anunciando as mercadorias nas vitrines de todo o 
Brasil. Faca dinheiro alugando 0 seu equipamento. 

3.0 OTN 

STRIP GIRLS I e II 

Para tirar a roupa delas voc4 tern de saber cantS-las. 

1.5 OTN 

CADASTRO DE CLIENTES 

Um excelente banco de dados com imensa facilidade de uso 6,00 OTN 

CARTOON 

Potente editor grifico criado para a linha MSX 6.00 OTN 

CONTAS A PAGAR E RECEBER 

Permite um completo controle de suas contas possuindo informapoes sobre a 
data em que foi efetuada a conta 6,00 OTN 

CONTROLE BANCARIO 

0 linico com extrato "extra descomplicado" 6.00 0TN 

CONTROLE DE ESTOQUE 

Potente gerenciador de estoque de produtos e matSrias-primas. At6 18(X) regis- 
tros 14 ' 30 0TN 

FLUXO DE CAIXA 

Poderoso programa com o qual vocS tern um perfeito estudo de sua situacSo 
financeira e de sua empresa 6.00 OTN 

MALA POSTAL 

Um super banco de dados A30 OTN 

SISTEMA DE CONTROLE IMOBILlARIO 

Dispensa o uso das mSquinas de mecanografia de controle de C/correntes agili- 
zando 0 funcionamento de uma imobiliAria 28,58 OTN 

DBASE II PLUS MSX 

Sistema de gerenciamento de dados 15.00 OTN 

SUPERCALC 2 

£ a planilha eletronica mais poderosa e fAcil de ser usada 15,00 OTN 



FACA JA 0 SEU PEDID0 

Envie cheque nominal a 

Z0CHI0 REPRESENTACOES LTDA. 

Caixa Postal 1793 - CEP 20001 

Rio de Janeiro - RJ.- Tel. (021) 262-6306 



DATA MAXIMA DE POSTAGEM: 25 do m«s corrente, 
considerando OTN do mesmo mes. 

Os pedidos efetuados ap6s a data acima, 
considerar a OTN do mgs seguinte. 



Venha vender seu produto conoscol Voc6 s6 tem a ganhar! Informapoes: 
Telefone (021) 262-63-06 



0 tracador de diretorios 

Paulo Henrique Campos 



E ste util itdrio foi desenvolvido em 
um TK3000lle com 2 drives, 
porem funcionara em qualquer 
equipamento compati'vel com a 
linha APPLE com pelo menos 1 drive. 

0 Trapador de Diretdrio tern como 
objetivos principais, proteger e ex- 
pand ir a capacidade de um disquete, 
de forma prStica, facil e rapida, e 



poucas pessoas saberiam como copiar 
um disquete assim protegido. Ele for- 
mate o disquete com 25 trilhas e possi- 
bilita gravar o diretdrio (CATALOGO) 
na trilha 24. 

AI6m de aumentar a capacidade do 
seu disco em 2 trilhas extras (8 Kb), 
o programa impede que a maioria dos 
copiadores rSpidos copiem este disco, 



pois normalmente esses copiadores so 
reconhecem ate a trilha 22. 

Com um simples CALL 768, o 
RWTS (Read/Write track and sector 
- leitura e escrita em trilhas e seto- 
res) passarS da trilha 1 1 (a mais usada) 
para a trilha 24 e vice-versa (da trilha 
24 para a trilha 11). Isso permite 
que voce possa passar os seus arquivos 



10 REM 
ZO REM 
30 REM 
40 REM 
SO REM 
60 REM 
70 REM 
SO REM 
90 REM 
93 REM 
96 REM 
100 HOME 

103 LET SP* « " " 

110 HOME 
120 INVERSE 

123 REM * * 

1 26 REM 1 EERO COIXOTES ! 

127 REM * * 

130 FOR I = 1 TO 5: VTAS I: H'OR 
l: PRINT SP*: NEXT 
140 FOR I « 1 T 0 3i VTCB II W7AB 
33 l PRINT SP»! NEXT 
ISO FOR I = 19 TO 23! VTAB I l HTBB 
1! PRINT SP* : NEXT 
160 FOP I - 19 TO 23: V"AI3 I! HTBB 
331 PRINT BP* l NEXT 
170 NORMAL 

175 PEM * 

176 REM • OERB CERCBDO ! 

177 REM *■ * 

ISO FOR I B 6 TO 341 VTBB 3l HTBB 
II PRINT “-"li NEXT 
190 FOR I ■ 6 ’0 341 V*AB 21 l HTBB 
II PRIN* "-"!i NEXT ■ 

195 FOR I » 6 TO IE l VTBB II HTBB 
3: PRINT "!•: NEXT l FOR I - 

6 TO 131 VTBB II HTBB 371 PRINT 
■ ! * I NEXT 

196 REM 

197 REM ! CBPPEGB TRBCBDOR ! 

19E PEM 

200 D* - CHR* (131 * CMP* (41 
240 PRINT D* : PRINT D*l "BLOAD T 

RBCADQR" 

243 REM 

320 PEM 

321 REM • 0 PROGRAMS ! 

322 REM * 

600 REM 

680 PRINT 

700 VTBB Si HTBB 101 INVERSE : PRINT 
•TRACADOR DE DIRETO D IO" I NORMAL 
i VTBB 6! HTBB 111 PRIN" "PO 
R PAULO HENRICJE."! VTBB 091 
H'BB S: PRINT "INICIBLI2AS 
COM QUE VOLUME 7" I HTBB OS I R- I NT 
■VOLUME MAIS USQDC E‘ *234": 

I INPU” * ) -IV* 

720 V * VBL (V*) : IF V* - *“ THEN 

V » 2541 VTRB 111 HTBB 28: PRINT 

VI GOTO 7 SO 

740 IF V < 1 CR V ) 234 OP V ( 

I’.T (V) THEN INVERSE l VTAB 
131 HTBB 06! PRINT CHR* (7> 

• CHR* (7111 PRINT "VOL * 

DEVE 3EP ENTRE . E 234 "i NORMAL 
I VTAB 12! COLL - 373! GOTO 

700 



Listagem 1 



800 VTRB 12: HTBB 6: PRINT "DES 
EJB MUDPP 0 VOLUME ? CS/N)"| 

J GET Q*i PRINT C*: IF 0* < 

> "S" PND Q* < > "N" THEN 

780 

840 IF Q* - "S" THEN 600 
380 VTBB 15* HTBB 6* PRINT "1* 

RETIRE ESTE DISCO": HTBB 6: PRINT 
"2. INSIPB" UM DISCO VIRGEM"! 

VTBB IB * HTBB 7: INPUT "PRE 
SS*< RETURN > PRP CDMECaP "IP* 

889 REM 

890 PEM ♦ 

891 PEM ! POKES NO DOS 1 

892 REM * 

893 REM 

900 PO* E 44033. 36 J REM MUDB V 

TOC PBRB TRILHP *24 
920 POKE 44741,72: PEM RERMI T 

E 0 JSO DP TRILHO til 
940 POKE 44764,36: PEM CRTPLO 

G LINKS FOR TRK *24 
960 POKE 46012,361 PEM VTCC N 

fl TRILHP *24 

980 POKE 43894,371 REM rO»MRT 

a DISCO COM *C5 7RT1.HQ3 
1000 HTPB 07: FLR6H : PRINT "IN 
ICIB.LI2RND0" : : NORMAL : pl - ZNT 
•• COM VDL* ":V 
1040 ONERR GC T 0 1440 

1049 PEM 

1050 REM * 

1051 REM ! PCES30 PC CISCC • 

1052 REM «• ♦ 

1053 REM 

1060 PRINT D*"INITFELLO« V"V 
1100 PRINT D*' FSRVETRPCflDOR* P*3 
00,u*07B" 

1120 PRINT D* ’DE'_E T F.HE_LD' 

1140 »OKE ‘♦4033.171 POKE 46C12, 

17: POKE 45294,35: c 0> E 
4,17: PO* E 44741,62: PET VO 
LTP PC DOS NORMPl 
1160 CNEPP GOTO 1560 

1170 REM 

1171 PEM * 

1172 PEM ' D0CJMENTPRI3 ' 

1173 REM * 

1174 REM 

1180 HOME i VT=B 3: PRINT "IMC 
IRLIZRCPD COME'LZ-a": R»I?4T : 

PRINT "RETIRE SEJ DI9) F.TTE" 

1200 FOR XX ■ i TO 2000: NEXT 
1220 PRINT : PRINT PGGRP INSTP 
LQNDO" l e RINT « b»INT ** / TRIL 
HRDOR ' UTILITBRXO DE TPPN3FE 
RENCIR" 

1240 FOR XX - 1 "0 1500: NEXT 
1260 PRINT : RPJNT : BRIM* "CPD 
P ' CPLL 768' DO BR3IC IP'S PR 
SSPP" 

1280 PRINT : PRINT “R TRILHP DO 
CRTRL03 DO *11 P/ *23 E " I 
PRINT I PRINT "VICE VEPSP. 

VOCE FRCILMENTE r0DEPC'"« PRINT 
: PRINT "TRCNSFERIR SEUE ORQ 



/ / 

/ TRRCPDOP DE / 
/ DIP.ETORIO / 

/ / 

/ PPULO HENRIQUE / 

\ CX.POSTBL 1004 \ 

\ SRO LUIS - MO \ 

\ CEP 65000 S 

\ N 



UIVOS DE UM DISCO" 

1300 PRINT : PRINT "NORMPL PO P 
ROTEGIDO." 

1320 PRINT 

1340 PRINT l PRINT "OUTRQ VE2 7 

S/N "|l GET Q»i PRINT R* : IF 
P* < > "S" THEN END 

1360 GOTO 600 

1380 POKE - 16368,0* VTRB 23: HTPB 
5 1 PRINT ">> UMRT-ECLR PQRQ 
CONTINUPP <<": WRIT - 16384 
,123: RETURN 
1400 RETURN 

1420 HTPB 20 - LEN (P») / 2: PRINT 
R*i RETURN 

1440 HOME : FOR YY - 1 TO 4: PRINT 
CHR* (7): NEXT 

1450 REM 

1451 REM 

1452 REM • MENSPGEM DE ERRO f 

1453 REM 

1454 REM 

1460 POKE - 16368.0*0 - PEEK 
(222): VTRB 3: PRINT "ERRO D 
OS #"I9|I PRINT " OCOPREll " 

: PRINT : PRINT “PRESS <C) P 

/ CONTINUPP"! PRINT t PRINT 

" (0) P/ SBIR” : PRINT : 

PRINT ">> "|i 3ET P*i IF P* 

< > "C* RND C* < > "0" THEN 

1440 

1480 IF PEE ' (44033) < ) 17 THEN 

2PLL 763 

1500 IF R* - "O ' THEM POKE 3'*. 

0* END 

1520 PCKE - 16368,0 
1540 3C T 0 1060 

1560 HOME : VTRB 3: ^PINT "-E®~ 

IN3P CBC'3PFM3 3/V GE r C* 

: PRIN" an IF PI ( > "8" QNO 

at < > *N" T W EN 156C 

15S0 IF (44073) ( ) 17 t H £N 

CPLL 763 

1600 IF P* - "Y" TU£N POKE 3<- . 

0: END 
1620 RUN 

i6«0 TEXT : HOME : FOP XX » 1 "0 
201 PRIN* ' :* “ 1 1 NEXT 

1660 VTRB 2: FOR XX ■ 1 TO 11 1 PRINT 
-1 1 "I I HTPB 37: FRIN- •• 1 1 * : c-PINT 
: NEXT 

1680 VTRB 19: FOR XX - 1 TO 20 
PRINT -ll "|l NEXT 
1700 VTRB 5 :B* ■ " > > TPPCPDCR D 
E DOS >>": GO SUE 1420: VTBB 
S : B* ■ -FOR": GOSJB 142) 

1720 P* - "RBUL ' SCF’S": 305J9 1 
420: VTBB 14iB» - "PPULO HEN 
PI DUE CAMPOS": 30SUB 1420 :P* 

- " FEITO EM 14/11/88": GCSUB 
1420 

1740 GOSUB 1380 
1760 RETURN 
65535 PEM 



PBULO KENPICUE CPMPOS 
FEITO EM 14/11 f 19CE 
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MICRO SISTEMAS 




Listagem 2 


0300- 


09 B1 




LDC 


»*P1 


034F- 


Cl D2 


CMP 


<*D2,X> 


0302- 


S5 06 




STQ 


*06 


0351— 


00 21 


-DY 


**C1 


0304- 


35 07 




STO 


*07 


0353- 


CC D4 


LDY 




0306- 


C9 11 




LDO 


*•*11 


0355- 


D2 


??7 




030S- 


CD 01 


QC 


CMP 


sccoi 


0356- 


C9 CC 


CMP 


*iCZ 


030B- 


B0 IS 




BCS 


*0325 


035S- 


Co 


IN'Y 




03CD- 


09 11 




LDO 


*»*11 


0359- 


Cl CO 


CM® 


'«OC,X) 


030F- 


SD 01 


OC 


STO 


•ncoi 


035B- 


BC 04 02 


LDO 


•0204 , X 


0312- 


SD BC 


63 


SIC 


•E3PC 


035E- 


00 


BRK 




03 :s- 


ED DC 


OE 


3-0 


*PEDC 


03SF- 


ED *-S 03 


LDO 


i '34e,« 


031S- 


09 24 




LDO 


***24 


0362- 


20 ED FD 


JSP 


•FEED 


03 1C- 


ED FE 


PE 


S-0 


* PEFE 


0365- 


E3 


XNX 




031D- 


09 44 




LDO 


***44 


0366- 


EO 15 


CPX 


#ri5 


031F- 


3D C5 


OE 


S’C 


*PEC5 


0363- 


DO F5 


B*.'E 


* 035F 


0322- 


4C 42 


03 


JKP 


*03^2 


0360- 


05 06 


LDC 


•06 


0325- 


09 24 




LDC 


#*24 


036C- 


00 


BRK 




0327- 


ED 01 


OC 


ETC 


•0C01 


036D- 


01 FD 


OPC 


•FD* X ) 


0320- 


3D PC 


133 


STP 


*B3BC 


036F- 


05 02 


-DO 


*02 


032D- 


BD DC 


OE 


STO 


*QEDC 


0371- 


03 


777 




0330- 


09 25 




LDO 


#*25 


0372- 


ED 04 05 


S32 


*0504 


0332- 


SD FE 


BE 


STO 


*BEFE 


0375- 


06 FF 


0S_ 


SFF 


0335- 


09 B2 




LDO 


#*P2 


0377- 


20 30 FF 


7SP 


*FF3Q 


0337- 


E5 06 




STO 


*06 


0370- 


60 


RTS 




0339- 


09 B3 




LDO 


«»B3 


037B- 


F3 07 


SBC 


*07, < 


033B- 


85 07 




STO 


*07 


037D- 


OE 






033D- 


09 4S 




LDO 


#*4S 


037E- 


F5 F5 


SPC 


• F5.X 


033F- 


SD C5 


OE 


STO 


*CEC5 










0342- 


20 SE 


FD 


JSP 


*FDSE 










0345— 


4C 5D 


03 


JMP 


*035D 


================ 




■■=======' 


0348- 


C3 




77? 












0349- 


Cl D4 




CMP 


< *D4 ■ X ) 


DIGITE 


» NO LUGOP DC 


SINPL 


034B- 


Cl CC 




CMP 


(*CC,X> 










034D- 


CF 




?r> 












034E- 


C7 




77? 













de disquetes normais para o disquete 
protegido. 

Normalmente o D.O.S. usa a trilha 
11 para guardar o diretbrio do disco. 
Isso n6s sabemos. Mas com o Trapa- 
dor de Diretorios o D.O.S. passard a 
utilizar a trilha 24, que fica mais prbxi- 
ma do centra do disco. Embora isso nao 
cause danos nem ao disquete nem ao 
drive, esse aumento de distancia ff- 
sica faz com que a rotina RWTS tenha 
resultados mais lentos. 

0 arquivo TRAQADOR em bindrio 
(listagem 2) 6 a base do CALL 768, 
que faz com que o RWTS opere na 
trilha 24. Ele serd gravado automatica- 
mente no seu disquete protegido, pe- 
lo programa BASIC da listagem 1. Para 
utilizar o tragador e so carrega-lo na 
membria com BLOAD TRACADOR, 
AS300 e executS-lo com o CALL 768. 

Qualquer modificapao para expandir 
ou reduzir a capacidade do programa, 
poderd ser feita na parte de POKES 
NO DOS, mais exatamente onde esti- 
ver o numero 36 e 37. 0 numero 36 
6 o numero da trilha onde colocar o 
diretbrio e o 37 e o numero de trilhas 
a formatar neste disco. Ja na rotina 
em assembler da listagem 2, deverao 
ser modificados os enderepos 0319, 



0326 e 0331, sendo que os dois pri- 
meiros possuem o valor 24 que 6 a 
trilha onde estara o diretbrio, e o 
terceiro possui o valor 25, referente 
a trilha que ocasionalmente podera 
ser utilizada para os nomes dos arqui- 
vos do diretorio, caso falte espapo na 
trilha 24. 



Para gravar a rotina assembler TRA- 
QADOR, digite BSAVE TRACADOR, 
AS300, LS07B. 0 programa BASIC 
pode ser gravado com o nome TRA- 
CADOR DE DIRETORIO. Agora maos 
i obra (ou sera a protepao?). 




A NOVA NEWSOFT E ISSO Ah 



Voce so 
tem a ganhar! 










★ INFORMATICA ★ 



A melhor e a mais bem aparelhada softhouse do Rio de Janeiro, 
agora em novas instalagdes, coloca a sua disposigdo 
a mais completa linha de produtos para o seu MSX! 




Conhega os mais novos SUPER PACOTES que a NEWSOFT 
reservou para voce, por apenas CzS 5.000,00 cada. 

(disco ou fita incluido): 

SUPER PACOTE 1 - BUTRAGUENHO FUTBOL • HUMPHREY • KIMPO FIGHTER • SKY 
VISION 

SUPER PACOTE 2 - LADY SAFARI • MINDER • ESGRIMA • SPEED BOAT RACE 
SUPER PACOTE 3 - BEN-HUR • MAGICAL PINBALL • TITANIC 1 • TITANIC 2 
SUPER PACOTE 4 - CHICAGO'S 1930 • PSYCHO PUB U.X.B. • GUTT BLASTER • 
HAUNTED HOUSE 

CALIFORNIA GAMES com fita incluida - CzS 3.500.00 
SILENT SHADOW com disco ou fita incluida — CzS 3.500,00 

• Sao mais de 2.000 programas a sua disposigao, com gravagao profissional 
garantida. 

• Drives. Interfaces. Expansores, Placas, Modems, Gabinetes, etc.. 

• Livros e revistas especializados. 

E MAIS... 

Agora voce contara tambem com a exclusividade do... NEWSOFT INFOCARD, 
o cartao que esta revolucionando o mercado de informatica! 

NAO PERCA TEMPO! 

Visite nosso SHOW ROOM na Av. Nilo Peganha, n? 50 sala 906, 

Ed. Rodolpho de Paoli, CEP 20020, bem no centra do Rio (Largo da Carioca) 
ou se preferir. faga seu pedido atraves de cheque nominal a 
NEWSOFT INFORMATICA LTDA. ou Vale postal Ag ARCOS - Cod. 522317. 

PEDIDO MiNIMO: CzS 3.500,00 • PE<?A SUPER LISTAO — GRATIS 
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Ida ao mercado 



Roberto Andrade Fernandes 



E ste e um pequeno sistema que desen- 
volvi usando um TK3000 (dafamflia 
Apple, portanto) e o SGBD dBase II, 
o que permite que o programa fun- 
done nSo sb num Apple compatfvel como 
tambem em qualquer outro micro que rode o 
dBase II. O programa foi desenvolvido buscan- 
do responder, em termos domSsricos, a mo- 
mentosa pergunta: "afinal, pra que serve essa 
traquitana toda?", e os leitores poderao obser- 
var que o unico pressuposto do qual se partiu 
6 o de que o usudrio do sisteminha sabe em 
que aposento da casa est3 localizado o micro. 

O sistema IDA-AO-MERCADO destina- 
se a apoiar a "rainha do lar" na tarefa, cada 
dia mais diffcil, de planejar as compras de 
mantimentos para sua famflia. Para isso o sis- 
tema mantGm um arquivo bdsico, contendo 
dados sobre mercadorias e prepos, e dispoe de 
um menu a partir do qual sSo acessados facil- 
mente todos os procedimentos que permitem 
a selepSo de itens de mercadorias, estabeleci- 
mento de quantidades a serem adquiridas, si- 
mulacoes e emissao de relatorios que auxiliam 
a tomada de decisSo. 

O arquivo b£sico 6 atualizado com os da- 
dos (prepos) coletados no campo, isto 6, no 
supermercado. e o ciclo recome?a. O diagra- 
ma de fluxo de dados deixa a conceppao da 
operapao do sistema bem mais evidente. 

DESCREVENDO OS PROCEDIMENTOS 

Vejamos cada um dos nove subprocessos 
e dos dois arquivos que constituem o progra- 
ma de forma a permitir o mSximo de clareza 
para todos aqueles que pretendem se utilizar 
desse sistema: 

INICIAR PROCESSO — Consiste na prepa- 
rapSo do sistema (inicializap£o) para que ele 
possa executar cada uma das funpSes previs- 
tas; 

CARREGAR ARQUIVO BASICO - Este sub- 
processo tern por finalidade permitir a carga 
do arquivo b4sico com os dados relativos 3s 
mercadorias que fazem parte do universo de 
consumo do usu£rio; 

EMITIR RELAT0RIO — Este subprocesso 
tern por fim emitir via impressora um relatb- 
rio de tudo aquilo que consta no arquivo b£xi- 
co, permitindo ao usu£rio atualiz3-lo, al3m de 
fazer a selepao de parte desse arquivo; 
APAGAR DADOS ANTER IORES - Apaga 
do arquivo de compras todos os dados relati- 
vos a processamentos anteriores, de modo a 
evitar interferencia no processamento atual; 
SELECIONAR ITENS — Permite selecionar 



. USE B: MERCADO INDEX B: INDMERCA 
. DISPLAY STRUCTURE 

E«trutur» p»r» o krwluo iBiMERCAOO .DBF 

Nu(A«ro d . r«gistros 10013*1 

Dktk d* ultima atuallzacao 100 ^ 11^88 



Us© 




banco 


dados. 




Cpo 


Nome 


Txpo 


TaNi. 


Dec 


W01 


NOME 


C 


015 




002 


UM 


c 


002 




003 


OT 


N 


002 




004 


MES1 


c 


O06 




003 


PREC01 


N 


008 


002 


O06 


MES2 


c 


006 




00? 


PREC02 


N 


OOS 


062 


** TOTAL ** 


O0O4Q 





. USE BiCONEHSAL INDEX B: INDCOMES 
. DISPLAV STRUCTURE 

Estrulura para o arquivo : B i C0MEN3AL . DBF 
Humaro da registro* i 00003 



Data 


da ultima 


atual izacao 109^1 


^88 


Us© 


prlrnano do 


banco de 


dados. 




C-po 


Nome 


Tip© 


Tam. . 


Dec. 


001 


NOME 


c 


015 




002 


UN 


c 


002 




003 


OT 


N 


002 




OG4 


PREC02 


N 


008 


002 


** TOTAL ** 


O0028 





FIGURA 1 - Estrutura dos arquivos 



para o arquivo de compras os itens de merca- 
dorias constantes do arquivo b£sico; 
ATUALIZAR QUANTIDADES - Este sub- 
processo permite atualizar as quantidades 
dos itens que se prentede adquirir, uma vez 
que as quantidades provenientes do arquivo 
b£sico sSo sempre unit3rias; 

EMITIR RELAT0RIO DE COMPRAS - Emi- 
te o relatorio de compras, ou seja, a lista das 
compras que serSo efetuadas no supermerca- 
dos; 

ANOTAR NOVOS PREQOS - Permite atuali- 
zar o arquivo b3sico a partir dos novos prepos 
das mercadorias que serSo anotados pelo usu3- 
rio (no prbprio relatbrio de compras) no mo- 
mento da ida ao mercado; 

ATUALIZAR ARQUIVO BASICO - Faz a 
atualizapao dos prep os do arquivo b3sico a 
partir dos dados obtidos no subprocesso ante- 
rior ou de outras formas. 

DESCREVENDO OS ARQUIVOS 

O arquivo bSsico content o nome do 
item de mercadoria (15 posipdes), unidade 
(duas posipdes), quantidade (duas posipoes, 
com valor sempre igual a 1). prepo anterior (8 
posipoes, sendo duas decimals), mSs relativo 
ao prepo anterior (na forma mmm/aa), prepo 
atual (8 posipoes, sendo duas decimais) e mes 
atual (na forma mmm/aa). Este arquivo 6 in- 



dexado pelo campo NOME, o que significa 
que as listagens na tela e os relatorios na im- 
pressora serSo sempre apresentados em ordem 
alfaMtica. 

O arquivo de compras cont6m o nome 
do item de mercadoria (15 posipoes), unidade 
(duas posipoes), quantidade (duas posipdes) e 
o ultimo prepo conhecido (8 posipdes, sendo 
duas decimais). Este arquivo 6 formado a par- 
tir do arquivo basico, selecionando-se os itens 
de mercadorias desejados e atualizando-se a 
quantidade a ser adquirida. Da mesma forma 
que o arquivo bdsico este arquivo tambdm 6 
indexado pelo campo NOME, o que causa o 
mesmo efeito do outro arquivo nas listagens 
ou relatorios, isto 6, sSo tambdm apresentados 
em ordem alfaWtica. 

Eventualmente poderao ser montados 
outros arquivos com a mesma estrutura do ar- 
quivo de compras, visando simulapdes. O lei- 
tor 6 livre para tal empreitada, uma vez que 
essa facilidade nSo 6 contemplada no menu do 
programa. 

ASPECTOS FI'SICOS DO SISTEMA 

O sistema & normalmente utilizado em 
um TK3000 dispondo de dois drives, uma im- 
pressora e placa CP/M, al3m do sistema geren- 
ciador de bancos de dados dBase II na versSo 
3.0. Mas como foi dito anteriormente, ele po- 
de ser adaptado sem dificuldade para rodar 
em outras configurapoes. Sao empregados 2 
disquetes: um com o dBase II instalado no 
drive A, e outro contendo os arquivos de tra- 
balho, instalado no drive B. £ claro que tal ar- 
ranjo pode ser alterado; no entanto, para que 
tudo funcione de forma transparente, assim 
6 qup as coisas foram dispostas. 

Com relapao aos arquivos, observe a figu- 
re que conrtm suas estruturas de forma a en- 
tender como os campos sSo preenchidos e co- 
mo foram indexados. O arquivo b£sico (B: 
MERCADO. DBF) foi indexado pelo campo 
NOME e seu arquivo de Indices 6 o 
B:INDMERCA.NDX. O arquivo de compras 
(B.-COMENSAL.DBF) 6 indexado pelo ar- 
quivo B.INDCOMES.NDX. Os arquivos B: 
RELMERCA.FRM e B :RELMES.FRM sab 
utilizados, respectivamente, para a emissao de 
relatbrios do arquivo bdsico e dos arquivos de 
compras. 

Os arquivos de comando estSb dispostos 
na llstagem 1 . Basta digita-los para que voce 
possa se utilizar do sistema (ou programa, pro- 
cesso — como achar melhor). 
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MICRO SISTEMAS 



OPERANDO OSISTEMA 



Coloque o dBase II no drive A e o disco 
do programs no drive B. Digite DBASE e apds 
aparecer o PROMPT, digite DO B:IDAMKDO. 
Surgird o menu do sistema, a partir do qual o 
leitor poderd colocar em agao o subprocesso 
desejado. Apds a execugao de cada subproces- 
so o controle volta para o menu e o processa- 
mento se encerra quando o usudrio manisfes- 
tar essa intengSo. 

No momento de carregar o arquivo bdsi- 
co preste bastante atenpdo para preencher cor- 
retamente os padroes convencionados. quanti- 
dade sempre igual a 1, unidade igual KG (para 
quilo), LT (litro), LA (lata), VI (vidro), PC 
(pacote), GA (garrafa), PT (pote)eCX (caixa). 
A unidade UN serd usada para as mercadorias 
que nao possuem uma embalagem caracteristi- 
ca (exemplos: lampada, barra de sabdo, etc). 

A carga do arquivo 6 feita atravds do 
preenchimento de um formuldrio exibido na 
tela e, ao seu final, os registros sSo listados 
em grupos de 15. Para listar o prdximo grupo, 
basta apertar qualquer tecla. 

Antes de uma nova selepao de itens deve- 
mos executar o subprocesso APAGAR DA- 
DOS ANTERIORES. Caso isso nffo seja feito, 
serao misturados os itens de selepoes anterio- 
res. 

No subprocesso SELECIONAR ITENS. 
tecle o nome do mantimento desejado (um de 
cada vez) seguido de <£R>. Quando nSo hou- 
ver mais mantimentos a selecionar. digite FI- 
NAL + <CR>. Nesta ocasipao o computador 
listard na tela o resultado da selepdo, em gru- 
pos de 1 5 registros. 

No subprocesso ATUALIZAR QUANTI- 
DADES, nao esquecer de teclar <tONTROL 
+ W> ao final da atualizapdo. Caso necessite. 
consulte as funpoes de edipao do comando 
BROWSE do dBase II. Essas funpoes tam- 
bem sSo utilizadas em ATUALIZAR ARQUI- 
VO BASICO. sendo que o novo prepo d in- 
clufdo no campo PREQ02 e o mds correspon- 
dente no campo MES2. Os valores antigos pas- 
sam para os campos PRECOI e MES1, respec- 
tivamente. 

Para implantar o sistema crie os arqui- 
vos B: MERCADO. DBF com o comando 
CREATE B: MERCADO. DBF, e B: COMEN- 
SAL. DBF com o comando CREATE B: CO- 
MENSAL. DBF. Observe as estruturas dos ar- 
quivos na figura 1. Ap6s a criapao dos arqui- 
vos, crie os arquivos de fndice com os coman- 
dos INDEX ON NOME TO B: INDMERCA e 
INDEX ON NOME TO B: INDCOMES. Cada 
um desses arquivos d criado separadamente, 
sendo que o arquivo que serd indexado deverd 
estar aberto (em uso). 

Para criar os arquivos de relatorios 
(B: RELMERCA. FRM e B: RELMES. FRM) 
observe o layout de cada um deles nas figuras 
2 e 3. respectivamente. Utilize o REPORT 
FORM do dBase II. 

A delepao (remopdo) de registros do ar- 
quivo bdsico e considerada como um procedi- 
mento d parte e deve ser tratada fora do menu 
de subprocessos, usando o comando DELETE 
do dBase II. 

Espero que com esse sistema voce ndo te- 
nha mais aquelas terrlveis dores de cabepa ca- 
da vez que precisar ir ao mercado. Aproveitel 



» 
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COMPRAS MENSAIS 



** HOME ** 


UN MES * 


* PRECO 


MES * 


* PRECO 


ACQUA UELUA 


U I 


0.00 


OUT'33 


275.08 


ACUCAR 


KG 


8.80 


SET'88 


195.00 


ADOCAHTE 


UI AGO '38 


135.00 


AGO'33 


135.00 


AGUA SANITARIA 


LT 


0. 80 


OUT'33 


64.00 


AJAX 


UI 


0.00 




0.00 


ALCOOL 


UI AGO' 88 


195.00 


AGO'33 


195.08 


ALGODAO 


CX 


‘ 0.00 




0.00 


ALHO 


KG 


0.00 




0.00 


AMEIXA PRETA 


KG 


0.00 




0.00 


ARROZ 


KG 


0.00 


OUT'33 


299.00 


AZEITE 


LT 


0.00 




0.00 


AZEITONA PRETA 


KG 


0.00 




0.00 


AZEITONA UERDE 


UI AG0'83 


139.00 


SET'88 


115.00 


BATATA 


KG AG0'38 


193.00 


OUT'33 


330.00 


B I SCO I TCI 


PC 


0. 0® 




0.00 


BOMBRIL 


PC 


0.00 


OUT'33 


62.00 


BRASSO 


LT AG0'38 


135.00 




0.00 


CAB IDE 


UN 


0.00 




0.00 


CADARCO SAPATO 


PR 


0.00 


OUT '88 


121.00 


CAFE 


PC AG0'83 


395.00 


OUT'33 


375.00 


CALDO GAL INHA 4 


CX AGO'38 


100.00 


QUT'88 


198.00 


CALDO GAL INHA 6 


CX AG0'38 


190.00 


AGO'33 


198.00 


CEBOLA 


KG 


0.00 


OUT'33 


265.00 


CERA BRANCA 


LA AGO'33 


209.00 


OUT'33 


230.00 


CERA UERMELHA 


KG AG0'38 


349.00 


OUT'33 


295.00 


CEREJA 


PC 


0.00 


OUT'33 


348.08 


CHA 


PC 


0.00 


AGO'33 


95.00 


CHAMPINHON 


UD 


0.00 


OUT'33 


290.00 


CHOCOLATE EM PO 


PC 


0.00 


OUT'33 


287.00 


CLAVBON 


PT 


0.00 


OUT'33 


277.00 


COCO RALADO 


PC 


0.00 




0.00 


CONFORT 


PC 


0.00 




0.00 


COTONETE 


PC 


0.00 




0.00 


CREAM CRACKERS 


PC 


0.00 


OUT'88 


181.00 


CREME DE LEITE 


LA 


0.00 


OUT'33 


293.00 


CREME RINSE 


UD AG0'38 


369.00 


OUT'33 


630.00 


DESODORANTE 


UD AG0'88 


225.00 


OUT'33 


351.80 


DOR I ANA 


PT 


0.00 


OUT'33 


220.00 


ESCOUA F'TANQUE 


UN 


0.00 


OUT'33 


132.00 


EXTRATO DE TOMA 


UD A60'38 


43.00 


OUT'33 


55.00 


FAI3CA 


LA 


0.00 




0.00 


FAR INHA DE MESA 


KG AGO'33 


79.00 


OUT'33 


219.00 


FAR INHA DE ROSC 


KG 


0.00 




0.00 


FARINHA DE TRIG 


KG 


0.00 


OUT'33 


205.00 


FECULA BATATA 


PC 


0.00 




0.00 


FEIJAO 


KG AG0'33 


259.00 


SET '33 


259.00 


FERMENTO EM PO 


LT AGO'88 


159.00 


SET'88 


195.00 


FILTRO MELITA 


CX AG0'38 


175.00 


SET 'S3 


175.00 


FITA GOMADA 


PC 


0.00 




0.00 


FOSFOROS 


CX 


0. 00 




0.00 



FIGURA 2 - Layout do 


formulario RELMERCA. FRM 




Pagina Ho 00001 
1 l'll'SS 














COMPRAS MENSA I S— CONTROLE 




+* NOME ** 


UN 


*QT P. 


UNIDADE NOUP PRECO ** 


P. TOTAL 


ACUCAR 


KG 


2 


195.00 


390.00 


BOMBRIL 


PC 


3 


62.00 


136.00 


DOR I ANA 


PT 


1 


220.00 


220.00 


FEIJAO 


KG 


4 


259.00 


1036.00 


GELATINA 
*+ TOTAL ** 


CX 


2 


134.00 • 


263.00 

2100.00 



FIGURA 3 — Layout do formulario RELMES. FRM 
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Ida ao Mercado 



.BsIDAMKDO.CMD 

* 

*************** ********************* ****** 

* PGM SUPERVISOR SISTEMA IDA AO MERCADO * 

* AUTOR ROBERTO A FERNANDES * 




«***************************************** 

♦ 

STORE 1 TO OP 
DO WHILE OPOO 
ERASE 

SET TALK OFF 

9 2,15 SAV 'IDA AO MERCADO' 

9 4, 15 SAV 'MENU DE PROCESSOS' 

9 6, 10 SAV ' O-ENCERRAR PROCESSOS' 

9 8,10 SAV ' 2-CARREQAR ARQUIUO BASICO' 

9 10,10 SAV '3-EMITIR RELATORIO DO AROUIUO BASICO' 

9 12,10 SAV '4-APAGAR DADOS ANTERIORES DO ARQUIUO DE COMPRAS' 
9 14, 10 SAV ' 3-SELEC 1 ONAR I TENS DE MERCADOR I AS ' 

9 16,10 SAV ' 6— ATUAL I 2 AR OUANTIDADES' 

9 18,10 SAV '7-EMITIR RELATORIO DE COMPRAS' 

9 20, 10 SAV ' 9- ATUAL I ZAP AROUIUO BASICO' 

9 22,0 

INPUT ' DIGITAR <0, 2, 3, 4 , 3, 6, 7, 9> ' TO OP 

IF OP-2 

DO B: INCLUIR 
ELSE 

IF OP-3 

DO BjRELATO 
ELSE 

IF OP=4 

DO BjAPAGAR 
ELSE 

IF OP-3 

DO Bi SELECAO 
ELSE 

IF OP=6 

DO B: ATUAL 
ELSE 

IF OP-7 

DO BjEMITEREL 
ELSE 

IF OP-9 

DO BiATUABAS 
END IF 

ENDIF 

ENDIF 

END IF 

ENDIF 

ENDIF 

ENDIF 

ENDDO 

SET TALK ON 
CANCEL 



B: INCLUIR.CMD 

* 

**************************** • 4 .*.*** ********* 

* PROGRAMA IMPLEMENT A SUBPROCESSO 2.0 * 

* CARREGAR AROUIUO BASICO * 

******** ******** ***** ******* ********** ******* 

* 

* AUTOR ROBERTO A FERNANDES 

* 

ERASE 

USE B: MERCADO INDEX B: INDMERCA 
STORE 'S' TO PESPOSTA 
DO WHILE RESPOSTA <> 'N' 

ERASE 

APPEND BLANK! 

3 2, 16 SAV ‘AROUIUO BASICO - INCLUShO' 

9 3, 12 SAV 'ED ICAO - CTRL-E P-'UOLTAR UM CAMPO' 

9 6,21 SAV '< RETURN. P/'PROXIMO CAMPO' 

9 7,21 SAV 'DELETE P^aPAGaR A ESQUERDA DO CURSOR' 

9 9,20 SAV 'NOME DA MEPCADOR I A ' 6ET NOME 

9 12,24 SAV ' UN 1 DADE ' GET UN 
9 12,41 SAV 'ttJ ANT I DADE ' GET OT 
9 13,15 SAV 'ANTERIOR: MES^ANO ' GET MES1 

9 13,50 8AV 'PRECO ' GET PRECOl 
9 18,13 SAV 'ATUAL: MES-ANO ' GET MES2 

9 13.30 SAV 'PRECO ' GET PREC02 
READ 

9 21, 16 SAV 'MAIS DADOS <S^N>? ' 

9 21.36 

WAIT TO RESPOSTA 
ENDDO 
RE INDEX 
DISPLAY ALL 
USE 

RETURN 

B: RELATO.CMD 

* 



* ROTINA IMPLEMENT A SUBPROCESSO 3.0 

* EMITIR RELATORIO DO ARQUIUO BASICO • 

***4*****^**»,Mt»**^****»j|o CT ♦**»*- »***«« * 

* 

USE B: MERCADO INDEX B: INDMERCA 

ERASE 

TEXT 

LI GmP IMPRESSORa 

DESLIGUE-A AO FINAL DO RELATORIO 
QUALQUER TECLA PAPA CONTINUAR 
.ENDTEXT 
WAIT 

SET PRINT ON 

REPORT FORM B: PELMERCA. FRM TO PRINT 

SET PRINT OFF 

USE 



B: APaGhR.CMD 



* ROTINA IMPLEMENTA SUBPROCESSO 4.0 * 

* APAGAR DADOS ANTERIORES DO AROUIUO DE COMPRAS * 
**•*•••••••«*********•**.******* ********************** 

* 

SET TALK ON 

USE B: COME NS AL INDEX B: INDCOMES 

ERASE 

DELETE ALL 

PACK 

USE 

RETURN 

BxSELECAO.CMD 

* 

********************* ***************** 

* ROTINA IMPLEMENTA SUBPROCESSO 3.0 * 

* SELEC I ONAR ITEMS DE MERCADOR I A * 

*************** *********************** 

* 

USE B : COMEMSAL INDEX B: INDCOMES 
ACCEPT -MANTIMENTO- TO ITEM 
DO WHILE ITEM <> "FINAL" 

APPEND FROM B: MERCADO FOR NOME- ITEM 
ACCEPT "MANTIMENTO" TO ITEM 
ENDDO 

SET TALK ON 
DISPLAY ALL 
TEXT 

QUALQUER TECLA PARA CONTINUAR 
ENDTEXT 
WAIT 
USE 
RETURN 

BxATUAL.CMD 

* 

**.#********************♦**************** 

* ROTINA IMPLEMENTA SUBPROCESSO 6.0 ♦ 

* ATUAL I 7 AR OUANTIDADES < ARQ. COMPRAS' • 

**••»*•• **•******♦••*« ********* ********* 

* 

USE B: COMEMSAL INDEX B: INDCOMES 

ERASE 

TEXT 

TECLAR CTRL-U OIMULTANEAMEHTE) AO FINAL DA ATUAL I ZACAO 
QUALQUER TECLA PARA CONTINUAR 
ENDTEXT 
WAIT 
GOTO TOP 

BROWSE FIELDS MOME.QT 
GOTO TOR 
DISPLAY ALL 
TEXT 

QUALQUER TECLA PAPA CONTINUAR 
ENDTEXT 
WAIT 
L»SE 

RETURN 

BsEMITEREL.CMD 

* 

•*«***•* »**4*y******#*******^* v4tlteM , !>#3> ^ JWrfc> 

♦ ROT II«A IMPLEMENTA SUBPROCESSO 7.0 * 

* EMITIR RELATORIO DE COMPPaS + 

***** ******** **** **.******* ******* .♦****• ** * * * 

USE BiCOKCNShL INDEX B: INDCOMES 

ERASE 

TEXT 

LI GAR IMPRESSORA 

DESLIGUE-A AO FINAL DO RELATORIO 
QUALQUER TECLA PARA CONTINUAR 
ENDTEXT 
WAIT 

SET PRINT ON 

REPORT FORM BiPELMES.FRM TO PRINT 

SET PRINT OFF 

USE 

RETURN 



B: ATUA8AS.CMD 

* 

•♦♦♦**•♦*♦*****♦***********,, **************** 

* ROTINA IMPLEMENTA SUBPROCESSO 9.0 * 

• ATUAL I2AR ARQUIUO BASICO * 

********** ****** ******** ***** * * * *********** * * 

USE U: MERCADO INDEX B: INDMERCA 

ERASE 

TEXT 

TECLAR CTRL-M <SIMULTANEArfENTE> AO FINAL DA ATUAL IZACAO 
QUALQUER TECLA PARA CONTINUAR ° 

ENDTEXT 
WAIT 

GOTO TOP 

StO ' TOP * ELDS M0ME ' 1 ' P * EC0 1 ' f «S2, PREC02 

DISPLAY ALL 

TEXT 

QUALOUEP TECLA PARA CONTINUAR 
ENDTEXT 
WAIT 
USE 
RETURN 
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SOFTWARE 
NASA JON. 

Valido para todo 
micro nacional. 







Folha de Pagamento 

• Folha de Pagamento semanal, quinzenal e 

mensal. • Calcula o 13?, F6rias e Reajuste 
Salarial. • Emite: Folha de Pagamento 
Analftica e Sint6tica, Recibo, Guia de IAPAS, 
Relapao para IR, Informe de Rendimentos, 
FGTS e outros. • Aceita funciondrios horistas 
ou mensalistas. • Tabelas modificiveis pelo 
proprio usudrio. gg Qj^/g 

Livros Fiscais 

• Emite Livros de Entradas e de Sai'das. 

• Permite a escriturapao dos livros de ICM e 
IPI. • Os lanpamentos sao feitos em lote 
permitindo exclusSes, alterapoes e inclusoes. 

• A tabela de cddigos fiscais e mantida pelo 
prdprio usuario. • Emite uma listagem de 
valores por cddigo fiscal. • Mantem urn 
arquivo de fornecedores e fornece a 
"Lista de Emitentes". • Emite relatdrio 
para preenchimento da GIA. ■ Imprime 
os termos de Abertura e Encerramento. 

80 DIN'S 

Contabilidade 

Possui Historicos Padronizados. 
i O Plano de Contas tern 5 nfveis e 
6 definido pelo prdprio usuario. 

• Os lanpamentos sao em lote, 
com possibilidade de alterapao, 
exclusao e verificapSo. • Emite 
Livro Diario, Livro RazSo e 
Balancetes (anali'tico e 
sintetico), Balanpo 
Patrimonial, Demonstrapao 
do Resultado, Termos de 
Abertura e Encerramento, 
Diario por Centro de 
Custo e Extrato de 
Contas. • Permite 
definir, atraves de 
formulas, qualquer 
relatdrio contendo 
saldos de contas e 
resultados de 
operapoes 
matemdticas em 
cima desses saldos. 

75 OTN'S 

Controle de Estoque 

• Registro completo de cada produto. 

• Controla os itens abaixo do ponto mfnimo. 

• Permite reajuste automStico de prepos. 

• Emite etiquetas e lista de prepos. • Emite 
relatdrios sobre a posipao do estoque, f fsica e 
financeira. • Guarda as entradas e sai'das de 
cada item no decorrer do perfodo. • Fornece 
um Di3rio com todas as movimentapoes de 
entrada e sa fda no peri'odo. 



Se voce pretende agilizar, com seguranca o trabalho em sua empresa 
procure a Nasajon. 

Alem de ter os programas mais eficientes do mercado, a Nasajon 
desenvolve sistemas espeaficos para qualquer area de atividaaes. 
Para esdarecer quaisquer duviaas sobre os programas, a Nasajon 
mantem um Departamento de Suporte com atenaimento em todo o 
Brasil. 

Faca como outras 2.000 empresas ja atendidas, compre seguranca, 
compre Nasajon. 



75 OTN'S 




Rio: Av. Rio Branco, 45 gr. 1804 
Tel.: (021) 263-1241 Telex: 2137560 
S. Paulo: Rua Xavier de Toledo, 161 
conj. 106 -Tel.: (Oil) 35-1601 e 37-7670 
B. Horizonte: Av. Alvares Cabral, 344 
sola 405 - Tel.: (031) 222-616 7 





CABO PLANO 
SEJA QUAL FOR A 

1,27 



CAR ACTERISTICAS OCTAIS 



Passo(mm) 


i. 


27 


Bitola (AWG) 


26 


28 


Condutor Intemo 


corda de fios de cobre 
estanhados 


DiSmeuo(mm) 


0.47 | 038 


. isoiamento 


PVCCmza 


Numero de 
Condutor es 


At& 64 vias 


Temperature de 
OperapAo 


— 30 a ♦ 80 

— 20 A * 80 


Resistencia Minima 
delsotesao(MQXKM) 


20 


Resistencia do 
Condutoe (Q/Km) 


150 


240 


TensAode 

Operacao(V> 


300 


Tensaode 
Teste (V) 


2000 




FLAT 




A diferenga de geragoes nao § problema para os cabos pianos. Seja 
qual for o numero de informaqoes, maior ou menor. micro, mini. PCs, 
macro, seja qual for a situatjao ele intertiga mesmo. Cabo piano e 
antes de tudo um Rat Cable da Kmfi produzido em 1.27mm e 
254mm, de 10 a 64 vias. 

INTERUGANDO TO 



Sao Paulo 








situacao 



CABLE® 



Passo (mm) 



8(tola (AWG) 



1J4 



Condutor 

Inlerno 



corda da fios de cobra 
estanhado 



DiSmetro (mm) 



0.38 



Isolamemo 



PVCCmja 



Ate 32 vias 



Temperature do 
OperapSo |'C) 



-204 * 80 



300 



2000 



Cabo piano acorn pan ha todas as gera^des. 

A KmP dispoe de completo Departamento de Inslalagao e de Enge- 
nharia que poderao auxilia-lo na escolha dos cabos, conectores e 
acessorios mais adequados a sua necessidade, instalando-os den- 
tro de normas tecnicas intemacionais. 



kmP 



kabelmetal llRELLI 



)AS AS GERAQOES. 



* Marca Registrada KmP Cabos Especiais e Sistemas Ltda. 



BR 1 16/25 Cx. Postal 146 
06800 Embu SP 
Tel. 011/494.2433 Pabx 
Telex 1171842 KMPl BR 
1171873 KMPL BR 
FAX 11-494-2937 



Atendimonto. Putdicidade a Promocdes 





Preenchendo cheques com o dBase 



Marcelo Pessanha de Paula 



A tarefa de administrar empre- 
sas possui espinhos que po- 
dem transformar rotinas sim- 
ples detrabalhoem um verda- 
deiro martfrio. Um desses espinhos, por 
exemplo, e o preenchimento de che- 
ques. Quando a quantidade de cheques e 
pequena - ate 20 cheques - basta uma 
boa datilografa e tudo fica resolvido. 
Mas quando o numero de cheques alcan- 
na a casa das centenas... Bern... A( 4 que 
comepa o espinho! 

E nessa hora que o analista de siste- 
mas deve marcar a sua presenpa efetiva e 
buscar a melhor forma de automatizar o 
processo. No meu caso essa forma tern 
hoje o nome de EXTENSO. CMD 
Este e o nome do programa elabora- 
do para preencher cheques de um arqui- 
vo dBASE II, criado devido a quantida- 
de relativamente grande de nossos servi- 
pos de AdministrapSo de Imoveis aqui 
na PROLOCAL (empresa do GRUPO 
PR EL). Sao aproximadamente 600 



cheques mensais. 

Como foi escrito em dBASE II, o 
programa pode ser utilizado em pratica- 
mente todos os microcomputadores, 
desde o MSX at£ o PC, sendo que no 
caso do PC sao necessarias pe- 
quenas alterapoes para compatibiliza-lo 
com o dBASE III. Mas isso n§o repre- 
senta nenhuma dificuldade para o pro- 
gramador. Basta entender o conceito 
adotado na criapao do programa. 

0 princfpio partiu da separapao dos 
numeros dentro de uma vartevel, crian- 
do um sistema de divisSo por classe. 
Por exemplo: 

123. 425,00 
ABC DEF 

O objetivo 6 fazer cada uma das 
varteveis assumir automaticamente o 
valor de sua classe e depois definir o 
seu valor por extensor 
A1 = Centena de milhar; 

B1 = Dezena de milhar; 

Cl = Unidade de milhar; 



D1 = Centena; 

El = Dezena; 

FI = Unidade pura. 

Vejamos em um exemplo pr^tico 
como seria destacada a centena do valor 
acima: 

123.425/1000 = 123,425 

(guardar em D) 

(D - (INT (D/10)* 10)) TO D 
onde 123,425 * 10 = 1234,25 
(INTeiro = 1234) 

INT (123,425) * 10 = 1230 
realizando a subtrapao temos: 
1234 
- 1230 
4 

Este numero na sua classe vale 
"quatrocentos" em extenso e D1 assu- 
me este valor. 

Como voce pode ver o princfpio e 
bastante simples. Agora e so carregar o 
dBASE e digitar o programa da listagem 
1. Espero que ele possa ser bastante util 
para voce. 



Preenchendo cheques 


TYPE EXTENSO. CUD 




STORE INT< < VL 1 0 / 1 > • 1 0 ) TO D 


* 


NOTE Marc cl o Pessanha .Je Paula 




STORE INT < ( VL 10/ 100)»1O) TO E 


IF 8=1 .AND. C>0 


"OTE Analista dc S interna (0SM> 




STORE INT((VLr0/10)-10) TO F 


IF C= 1 


NOTE Ituiu<»b»-HG 




■ 


STORF 'ON2F ' TO Cl 


NOTE font 1034) 142-1893 «... 




STORE <B-(XNT <R/10)»10) > TO 8 


ENOIF 


"OTE 241-4153 Cm». 




STORE <C-(INT(C/10)>10)> TO C 


IF 02 


>’0TF Av. 13 o' 20 c 22 .’68 s.la 


02 


STORE (D-(INT(D/10)»10) ) TO D 


STORE 'DOZE' TO Cl 


NOTE CEP 3R3AQ 




STORE <E-<INT<E/10) *10) ) TO C 


CNDXF 


NOTE Progr ani.do ee 12/13/88 




STORE <F- ( INT <F/10)-10) ) TO F 


IF C-3 


SET TALK OFF 




• 

IF A >8 


STORE ’TRFZF ' TO Cl 
ENDIF 


STORE 8 TO O 




IF A* l .AND. .AND. C-G 


IF C - 4 


STORE O TO L 




STORE 'CEM MIL, ' TO A1 


STORE 'QUATORZE' TO Cl 


DO UWILF 1 0-1 




STORF Ai TO PI 


ENDIF 


ERASE 




ELSE 


IF C-5 


STORF ' ’ TO V 




STORE CENTO' TO Al 


STORE 'GUINZF ' TO Cl 


J 5.10 SAT VALORES ENTRE 1 ATE IV?. 990 . 00 


ENOIF 


ENDIF 


3 10,10 SAT 'VALOR A PREENCHER ' GET V 


ENDIF 


IF C-6 


•'till/ 

STORE VAL CU> TO VI. 10 




• 

IF 8 >® 


STORF 'DEZFSSEIS ' TO Cl 
ENOIF 


STORE ' ■ TO PI 




IF 0-1 .AND. C-0 


IF C-7 


STORF ' • TO P2 
STORE ' ’ TO P3 




STORE 'DEZ ' TO 81 
ENDIF 


STORE 'OFZFSSETF ' TO Cl 

ENDIF 


STORE ' • TO P4 




IF 8-2 


IF C-0 


STORE ' • TO A1 
STORE 9 ‘ TO 01 




STORE 'VINTE ' TO 81 
ENDIF 


STORE 'OrZOITO' TO Cl 
ENOIF 


STORE ’ ' TO Cl 




IF B-3 


IF C-9 


STORE ' ' TO Di 




STORE ‘TRINTA ' TO R1 


STORE 'DE7EN0VF ' TO Cl 


STORE ' ' TO El 




ENDIF 


ENDIF 


STORE * ' TO FI 




IF B-4 


ENDIF 


STORE 0 TO A 




STORE 'QUARFNT A 1 TO PI 


N 


STORE 0 TO 8 




ENDIF 


IF LEN(C1 > <2 


STORE 0 TO C 




IF 8°S 


IF C-i 


STORE 0 TO D 




STORE 'C IN9UENTA ' TO 81 


STORE 'UM' TO Cl 


STORE 0 TO E 




ENOIF 


ENOIF 


STORF A TO F 




IF B-6 


IF 02 


IF VLIG-0 .OR. VIIQ<® .OR. VLIQH99999 


STORE 'SESSENTA' TO 81 


STORE 'DOIS ' TO Cl 


7 c;:k 17 > 




ENDIF 


ENOIF 


LOOP 




IF 8-7 


IF C-3 


ENOIF 




STORE 'SETENTA ' TO 81 


STORF 'TRE8 ' TO Cl 


ERASE 




ENDIF 


ENOIF 


S 1,30 SAY 'PRENCMENDO CWOUES ' 




IF 8-8 


IF 04 


S 2.30 SAY 'XZJI2ZZZZZZ XXXXXXX ' 




STORE 'OITENTA ' TO PI 


STORE 'QUATRO' TO Cl 


a 12.16 SAY 'V.PRFNCHFR : ' 




ENDTF 


ENOIF 


a 12.25 SAY VLIG USING 'MHK . ««■ .99 ' 




IF 8-9 


IF C-5 


STORE INT (VL 10/ 100000 > TO A 




STORE 'NOVENTA ’ TO Bi 


STORE 'CINCO' TO Cl 


STORE INTI (VL 10/130000) « 1 0 ) TO 8 




ENDIF 


ENOIF 


STORE INT ( (UL TQ/1A000) • 1 A > TO C 




ENOIF 


IF C-4 
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STORE 


'SEIS ' 


TO Ci 




STORE 


DEZESSETE' TO Fi 


IF LFN(P1><2 








ENDIF 








ENDIF 




IF LEN< Ai ) > 1 








IF C-7 








IF F-8 




STORF Ai*' ' 


TO 


PI 




STORE 


'SETE' 


TO Ci 




STORE 


'DEZOITO ' TO Fi 


ENDIF 








ENDIF 








ENDIF 




IF LEN(B1 > >1 








IF C=8 








IF F—9 




STORE Pi*Bl* 




TO 


PI 


STORF 


'OITO ' 


TO Ci 




STORE 


'DE7ENOVE * TO Fi 


ENDIF 








ENDIF 








ENOIF 




IF • EN(C1) >1 








IF C=9 








STORE DI ♦ ' 


'♦Fi* ' CRUZADOS' TO P? 


STORE Pi*Ci+ 


' ' 


TO 


*•1 


STORE 


'NOVE ' 


TO Ci 




ENDIF 




ENDIF 








ENOIF 








* 




IF l EN(P1 > >1 








ENDIF 








IF LEN(Fi ) <2 


STORE Pi* 'NIL 


' TO PI 












IF E-i 




ENDIF 








IF 0-0 -AND. E-0 


.AND. 


F-0 


STORE 


'DE7 ' TO Ei 


ENDIF 








STORE ' 


CRUZADOS' TO 1 


P2 


ENDIF 




if 








FNDTF 








IF E»2 




IF LEN(P2)<2 








tnl / 1 r 








STORE 


'VINTE' TO El 


IF LEN(Dl)>i 








IF D*i .AND. E-® 


-AND. 


F~0 


ENDIF 




STORE Di* ' ' 


TO 


P2 




STORE ' 
FNDIF 


CEN CRUZADOS ' 


TO P2 


IF E-3 
STORE 


'TRINTA' TO Ei 


ENOIF 

IF l.FNCEl ) >1 








■ 








ENOIF 




IF LEN(P2> > 1 









IF P2= 



IF D- i 
STORE 


'CENTO' TO DI 


ENDIF 
IF D-2 
STORE 


'DUZENTOS ' TO DI 


ENDIF 
IF D*3 
STORE 


'TREZENTOS' TO DI 


ENDIF 
IF D-4 
STORE 


'QUATROCCNTOS ' TO 1 


ENDIF 
IF D-5 
STORE 


'QUINIIFNTOS ' TO Di 


ENDIF 
IF D-6 
STORE 


'SEISSENTOS ' TO Di 


ENDIF 
IF D=7 
STORE 


'SETECENTOS' TO DI 


ENDIF 
IF D-8 
STORE 


'0IT0CENT08 ' TO Di 


ENDIF 
IF D’9 
STORE 


'NOVFCENTOS ' TO Di 



ENDIF 
ENOIF 
If 

IF E-l .AND. F>0 
IF F- i 

STORE 'ONZF ' TO FI 
ENDIF 
IF F-2 

STORE 'DOZE ' TO FI 
ENOIF 
IF F-3 

STORE 'TREZF ' TO FI 
ENDIF 
IF F-4 

STORE 'QUATORZE' TO Fi 
ENOIF 
IF F-S 

STORE 'OUINZE ' TO Fi 
ENDIF 
IF F-6 

STORE 'DEZESSEIS ' TO Fi 
ENDIF 
IF F-7 



STORE P2*Ei*' ' TO P2 



STORE 


'QUARENTA* TO Fi 


ELSE 


ENDIF 




STORE F.l * * ' TO P2 


IF E =5 




ENOIF 


STORE 


'CINOUENTA' TO FI 


ENDIF 


ENDIF 




IF LEN(F1 ) >i 


IF E-6 




IF 1 EN< P2 > > 1 


STORE 


'SESSENTA' TO El 


STORE P2+F1* ' ' TO P2 


ENDIF 




FLSE 


IF F-7 




STORE FI* ' ' TO P2 


STORE 


'SETENTA' TO Ei 


ENDIF 


ENDIF 




ENDIF 


IF F=8 




IF : EN(P2>)1 


STORE 


'OITENTA ' TO El 


STORF P2* 'CRUZADOS ' TO P2 


ENDIF 




ENDIF 


IF F*9 




ENDIF 


STORE 


'NOUENTA' TO Fi 


If 


ENOIF 




IF !.EN(P2)-i 


NDIF 




STORF Ai** '*81* ' '*C1*' NIL CRUZADOS 
ENOIF 


F LFNCFi > <2 


* 


IF F* 1 




STORE Pi * p 2 TO P3 


STORE 


'Uh' TO Fi 


IF LEN<P3 ) >55 


ENOIF 




STORE Ai*' '*Bi* ••Cl*' NIL. ' TO Pi 


IF F-2 




STORE Pl*Oi*' '*£1*' '*F1 TO P2 


STORE 


'DOIS ' TO FI 


STORE P2 TO P3 


ENOIF 




STORE 'CRUZADOS' TO P4 


IF F-3 




ENDIF 


STORE 


'TRES' TO FI 


STORE 1 EN(P3> TO VFR 


ENDIF 




STORE 55-VER TO VER 


IF F-4 




if 


STORF 


'OUATRO' TO Fi 


S 15. SO SAY P 3 


ENDIF 




3 16.10 SAY P 4 


IF F-5 




STORE ' ' TO 0 


STORF 


'CINCO' TO Fi 


3 18.15 SAY 'NOVO PREENCHINFNTO (S/N) ' 


ENDIF 




READ 


IF F-6 




IF 0- 'N ' 


STORE 


'SEIS' TO Fi 


STORE -1 TO L 


ENDIF 




L OOP 


IF F-7 




ENDIF 


STORE 


'SETE' TO Fi 


ENDDO 


ENDIF 
IF F=8 




RETURN 


STORE 

ENDIF 


'OITO' TO Fi 




IF F-9 


* 




STORE 

ENDIF 


'NODE ' TO Fi 
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O lado oculto do 
armazenamento 

— A estrutura e a organizacao das gravacoes nos dis- 
AAl Ol 0\ COS padrao Apple. 

Compactacao de dados 

— Tecnicas de armazenamento e compactacao de in- 
formacoes em PC e MSX. 

E o tradicional Clube do Leitor com as secoes de cartas, dicas e programas. 




Recuperando informacoes 
com dBase III Plus (llj 

Nelson M. da Silva 




Figura 1 — Interrelacionamento entre arquivos 



E m outubro de 1987 apre- 
sentamos um programa sim- 
ples que permitia a uma 
pessoa organizar sua biblio- 
grafia de referenda e, atraves de pala- 
vras-chave previamente selecionadas, re- 
cuperar artigos ou livros que abordassem 
determinado tema. 

Sabfamos que o programa, em- 
bora bastante simples, atenderia 
seus objetivos e poderia ser de grande 
ajuda para aquelas pessoas que tern um 
volume aprectevel de informagoes a 
guardar e... precisam recupera-las rapi- 
damente na hora necessaria. 

Recebemos, de diversas partes do 
pai's, pedidos de copia do programa 
em disquete e comentdrios que nos 
estimularam a implementar a versao 
inicial e mostraram que o nosso artigo 
despertou nos leitores o interesse pela 
pesquisa, o que e entusiasmante. 

Mantendo o mesmo princfpio do 
programa original, agora o apresenta- 
mos com telas formatadas e menus 
de fcicil operagao. Novos comandos 
de programagao sao usados, o que 
e uma forma de apresentar aos inician- 
tes as facilidades de que o dBase II 
Plus dispde. 

Estamos introduzindo condigoes de 
consulta ao Thesaurus, usar o dBase 
III Plus e acrescentar novos registros 
no banco de dados sem ter de abando- 
nar o programa, o que evita por exem- 
plo a necessidade de se ter ao lado uma 
lista das palavras que compoem o nosso 
Thesaurus para verificar se determinada 
palavra consta no mesmo, ou qual e 
aquela que melhor define um assunto 
sendo classificado. Tambem para a con- 
sulta em tela, dispoe-se agora de um 
controle que apresenta a bibliografia 
em grupos de tres (ou menos, no caso 
de termos apenas uma referenda ou o 
total de references encontradas nao 
for multipla de tr§s). 

Ao usuSrio que nao programa em 
dBase III Plus, damos um produto 
mais completo, e para aqueles que 
sao iniciantes, exemplos do uso de 
comandos de grande utilidade. 

Seguem-se pequenos coment^rios so- 
bre os programas e arquivos usados 



visando uma orientagao aos interessa- 
dos: 

1 - Nunca 6 demais lembrar que o 
Config.Sys do DOS deve estar confi- 
gurado para Files - 20 e Buffers- 15, 
pelo menos, evitando-se assim a mensa- 
gem de erro "too many files opened 

2 — Cs programas do tipo <...>. 
PRG podem ser modificados atraves 
do comando de ponto .MODI COMM 
< . . . > .PRG; a versao anterior e pre- 
servada num arquivo <...>. BAK. 

3 — 0 comando de ponto .TYPE 
< . . . >.PRG TO PRINT aciona a impres- 
sora para listar este tipo de programa. 

4 - A estrutura de um arquivo (...>. 



DBF pode ser alterada pelo comando de 
ponto .MODI STRU < . . .>.DBF. 

5 - Qualquer alteragao nos nomes dos 
programas ou seus campos implicara na 
corregao nos programas que chamam 
estes arquivos ou programas. 

6 — Tambem e aconselhavel fazer uma 
cdpia dos programas para um disquete e 
trabalhar com a mesma, pois no caso 
do surgimento de qualquer problema 
poderemos recorrer ao disquete original. 

A figura numero 1 mostra o interrela- 
cionamento dos programas usados e os 
demais quadros apresentam a listagem 
dos programas necessdrios. 
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• NEMESIS 

• PRO-ELETRONICA 

• CASA DO MSX 

• MEC 

• ECTRON 

• ELDORADO 

• LIMA 

• PAULISOFT 

• PRINCESWARE 

• quimenal 

• ELETRODISCO 

• CINOTICA 

• SOFTNEW 

• CANADA COLOR. 
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A VENDA: 

• MAPPIN 

• BRUNO BLOIS 

• BRENNO ROSSI 

• FILCRIL 



Av. Paulista, 2001 
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A partir de agora o seu micro ficara muito mais "inteligente 
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Acabou aquela estoria de micro so para joguinhos, ou computador 
videogamezado. Com o Digital BOOK o seu computador MSX vai 
realmente Ihe ensinar alguma coisa. Ensinar o que 6 e como fazer 
inform&tica, mostrando detalhadamente como funciona urn programa e o 
proprio microcomputador. 

0 Digital BOOK e a primeira iniciativa fecnico-editorial seria na area de 
informagoes usando, como veiculo, o proprio micro. Para isto foi 
projetado urn sistema de suporte exclusivo em disco. E o sistema de 
montagem e animagflo PRO KIT. 

Mas o Digital BOOK 6 muito mais do que urn livro digital. Ele content 
uma s§rie de inovagSes editorials sb possiveis gragas ao uso do 
computador como veiculo de difusQo de informagdes: a midia digital. Tais 
recursos permifem criar urn produto usando tecnicas de didQtica, de 
programagao e de narrativa audiovisual, contando tambSm com o apoio 
de simulagdes em animagdo grafica. 

Veja s6 o que preparamos para o nOmero urn: 

Animagflo grfifica - Voc6 vai conhecer o que 6 e como sdo feitas as 
animagoes grdficas no computGdor, com exemplos detalhados, num 
artigo de Renato Degiovani. Tudo isto usando a propria animagdo, 
Adventures - Num artigo assinado por Luiz Moraes, voc§ ird penetrar no 
Mundo dos Adventures de uma forma inSdita. Al§m disto, reservamos 
para voc6 urn brinde especial; 

Zona franca - Nesta parte do Digital BOOK quern manda § o usuario de 



T Cl mpiFf :1 i «Ti ell f*V i| fiT« [i | ft >1 11111^1*1! 



E isto nQo e tudo, mas deixaremos para os usuGrios do Digital BOOK o 
sabor da descoberta. 








Troca de paginas 
no MSX 

JoSo Jos§ Marques Gonpalves 



O Apple possui um recurso de tela 
que sempre me impressionou mui- 
to: o "page flipping" (troca de pff- 
ginas), o qual permite que se 
apresente uma tela enquanto outra 
estff sendo montada e vice-versa. Trata-se 
de uma ferramenta important fssima em ani- 
magffo grfffica, podendo agora com o MSX 
encontrar inumeras outras aplicagdes. 

Para quern nunca ouviu falar deste mffto- 
do, ele consiste na criagffo de pelo menos 
dois arquivos de imagem (duas "paginas"), 
os quais serSo selecionados por software 
para serem exibidos ou modificados pelos 
comandos normais do Basic. No Apple, esta 
selegffo 6 feita pelo comando POKE em 
enderegos estratffgicos; no MSX, alffm desse, 
deverffo ser usados os comandos atff agora 
pouco compreendidos BASE e VDP. No 
nosso caso serff usado o comando VDP 
por tornar mais simples e elegante, o cha- 
veamento das paginas. Infelizmente esta 
tffcnica nffo poderff ser aplicada no modo de 
alta resolugffo grfffica (SCREEN 2), por falta 
de memdria na VRAM (o MSX possui "ape- 
nas" 16 Kbytes de RAM para a manipulagffo 
do vfdeo e o modo SCREEN 2 os utiliza 
quase totalmente). As operagoes com sprites, 
entretanto, serSo preservadas nffo sendo 



Listagem 1 

10 ’Tranafere a tabela de for»a«ao dos 
caracterea para o final da VRAM 
20 BASE (2)-14336: SCREENO 
30 ' Eacreve e» 14 paginas direrences 
40 FOR F-0 TO 13 
SO * Eacreve na pdgina F 

60 POKE &.HF923 . F*4 
70 CLS : PRINT “PAgxna m -,F 
80 NEXT 
90 BEEP 

100 ’ Moatra aa 14 piginaa de texto 

110 FOR F-0 TO 13 

120 VDP (2) -F 

130 FOR 0-0 TO 100 : NEXT 

140 NEXT 



Listagem 2 

10 BASE (1 7) -0 : SCREEK3 

20 ’ Quadrado na pdgina 0 
30 LINE (SO. 20)~ (150. 120) , ,B 
40 AS-INPUTS (1) 

50 ’Muda o cursor para a pigina 2 
60 BASE (17) -2*2048: VDP (4) -0 
70 * Cfrculo na pdgxna 2 

80 CLS : CIRCLE (1 00 ■ 100) .50 
90 ' Chaveia entre aa paginas 
100 AS-INPUTS (1) : VDP (4) -2 
110 AS-INPUTS(l) : VDP(4) -0 
120 GOTO 100 



afetadas em nenhum momento pelo chavea- 
mento das paginas. 

Antes de detalharmos o uso desta tffcnica, 
vamos tentar entender o que realmente acon- 
tece quando executamos um comando BASE 
ou VDP. O comando BASE serve para modifi- 
car ou ler o enderepo inicial de uma das 
tabelas da VRAM. Sua forma de utilizapffo 
ff identica ff de uma variffvel qualquer. Ao 
ser atribufdo um determinado valor a BASE, 
sua funpffo serff a de armazenar esse valor 
em uma das variffveis do sistema localizadas 
entre os enderepos F3B3H e F3DAH e ajus- 
tar os registradores do TMS 9128 convenien- 
temente. Jff o comando VDP permite modifi- 
car ou ler indiretamente o conteiido dos 
registradores do TMS 9128. Os enderepos 
iniciais de cada uma das tabelas tambffm 
estffo contidos em alguns desses registrado- 
res, Esses enderepos poderffo ser modificados 
tambffm por esse comando, com a diferenpa 
de que as variffveis do sistema acessadas por 
BASE permanecerao inalteradas. Para quern 
estiver curioso, essas variffveis do sistema 
sffo usadas pelo comando SCREEN para 
organizar o mapa da memdria da VRAM. 

Apds essa pequena introdupffo tedrica, 
vamos passar para a prfftica. 

O MODO TEXTO 

Em SCREEN 0 ou 1, a tabela que normal- 
mente ff exibida no vfdeo ff a chamada tabela 
de nomes pelos manuais da EPCOM (BASE 
(0) ou BASE (5)). Muita gente jff deve ter 
tentado modificar BASE (0) ou BASE (5) 
e verificou que o cursor nffo acompanha as 
mudanpas de tela. Para que isto acontecesse, 
era necessffrio usar o comando SCREEN 
que provocava a perda de tudo o que esta- 
va na nova pffgina. Quern jff fez isso pelo 
menos uma vez deve ter notado que BASE 
(0) ou BASE (5) sd aceitam valores mdlti- 
plos de 1024 (1Kbyte). Isso se deve ao fato 
de que esses comandos ajustam tambffm o 
registrador numero 2 do TMS 9128, que ff 
capaz de armazenar apenas os 4 bits mais 
significativos de uma palavra de 14 bits. 
Disso podemos tirar duas conclusoes imedia- 
tas: 

1— 0 byte menos significativo (LSB) do 
enderepo inicial da tabela de nomes da VRAM 
serff sempre zero; 

2- 0 endereco real da tabela de nomes 
poderff ser calculado por VDP (2) *1024, 
com VDP (2) variando entre 0 e 15. 

A questao agora passa a ser como modi- 
ficar a posicffo do cursor sem usar o comando 
SCREEN. Era de se esperar que em algum 
lugar dos 4 Kbytes de variffveis do sistema 
existisse uma que servisse como base do 
cursor. E realmente existe. O enderepo 
base do cursor fica armazenado em F922H 
e F923H (descobri esses enderepos por 
acaso, enquanto disassembiava a rotina de 
CLS em 00C3H). Como LSB da tabela de 
nomes ff sempre zero, sd nos interessa en- 
tSo o enderepo F922H (quern quiser modi- 
ficar F922H, s6 para ver o que acontece, 
pode tentar). 



Agora que jff sabemos como chavear 
qual pffgina irff para o vfdeo e qual serff escri- 
ta, podemos tentar simplificar um pouco as 
coisas. Vamos fazer de conta que cada pffgina 
de vfdeo possui um nOmero. Vimos que 
VDP (2) pode variar de 0 a 15. Assim, para 
selecionar qual pffgina irff para o vfdeo basta 
fazer VDP (2) - NUMERO DA PAGINA. 

Supondo agora que essa pffgina seja aquela 
que deva ser escrita, seu enderepo inicial 
seria N0MERO DA PAGINA * 1024. Como 
nos interessa apenas o valor de MSB, o resulta- 
do vfflido para n6s ff: MSB = (NGMERO 
DA PAGINA * 10241/256 = NUMERO DA 
PAGINA *4. Fffcil. nffo? Resumindo, o que 
temos realmente a fazer ff: 

VDP (2) = X — onde X ff o numero da pffgina 
apresentada na tela; 

POKE & HF923, Y * 4 - onde y ff o ndme- 
ro da pffgina onde o cursor deve estar. 

O programa da listagem 1 exemplifica o 
uso dessa tffcnica. E importante notar, entre- 
tanto, que apesar de VDP (2) variar entre 0 
e 15, nffo serff possfvel criar 16 pffginas de 
texto. Deve-se tomar o cuidado para nffo 
criar uma ou mais pffginas sobre outras ta- 
belas importantes da VRAM. No exemplo 
da listagem 1, a tabela de formapffo dos 
caracteres foi transferida para o final da 
VRAM para que as pffginas de 0 a 13 pudes- 
sem ser usadas seqiiencialmente. 

OMODOGRAFICO 

Nesse modo ficamos reduzidos apenas ff 
SCREEN 3 e as coisas mudam um pouco 
de figura. Nesse modo, a tabela que apare- 
ce na tela ff a tabela do gerador de padroes. 

Seu enderepo inicial estff em BASE (17) e 
em VDP (4). O cursor que antes possufa 
um enderepo s6 para ele, agora segue o 
prdprio valor de BASE (17). VDP (4) s6 
pode armazenar os 3 bits mais significativos 
da palavra de 14 bits. Explicando de uma 
outra forma, BASE (17) s6 aceitarff valores 
mOltiplos de 2048 (2Kb) e o enderepo real 
da tabela do gerador de padrSes poderff ser 
calculado por VDP (4) *2048. 

Digite agora o programa da listagem 2. 
Esse programa mostra um quadrado na pffgina 
0 enquanto desenha um cfrculo na pffgina 2. 

A linha 60 ff responsffvel pela transferffncia 
do cursor da pffgina 0 para a pffgina 2. Note 
que logo apffs o comando BASE (17) ff neces- 
sffrio fazer VDP (4) ” 0 para que o TMS 
9128 continue mostrando a pffgina 0. Isso 
ffs vezes provoca um efeito de "piscamento" 
da tela bastante inconveniente. Para contor- 
nar esse problema, podemos modificar dire- 
tamente a variffvel do sistema acessada por 
BASE (17) usando o comando POKE. Essa 
variffvel do sistema estff localizada em F3D5/ 
D6H e, como nos casos anteriores, somente 
o MSB irff nos interessar. 

Agora experimente modificar a linha 60 
para: 

60 POKE &HF3D6, 2 *8 

Veja que o resultado ff o mesmo, mas sem 
os inconvenientes de antes. Note tambffm que 
agora o mfftodo para SCREEN 3 tornou-se 
extremamente semelhante ao mfftodo para o 
modo de texto. 

Resumindo, teremos: 

VDP (4) = X - onde X ff o numero da pffgina 
a ser apresentada no vfdeo; 

POKE &HF3D6, Y *8 - onde Y ff o numero 
da pffgina onde o cursor deve estar; 

BASE (17) ■- 2 *2048 - onde Z6 o numero 
da pffgina onde o cursor deve estar e ff a pffgi- 
na que serff apresentada na tela. 

As aplicagdes da troca de pffginas sffo 
muitas. Vao desde a criagffo de cenffrios ani- 
mados para jogos em SCREEN 1 ou 3, atff 
a criagffo de janelas ou outro efeito qualquer 
em programas aplicativos. Cabe agora ao lei- 
tor usar a sua imaginacSta e criar programas 
explorando esse recurso atff entffo desconhe- g 
cido no MSX. S, 
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O resultado do concurso de telas teve 

qua set adiado devido a quart tidade de 
material que recebemos. Aguardem so 
mais um pouquinho. 

Alguns leitores nos escreveram recla- 
mando que nao publicamos os enderegos 
de todos os leitores cujas cartas foram pu- 
blicadas. Lembramos aos amigos de MS 
que a publicagao dos enderegos 6 feita ape- 
nas quando o prdprio leitor manifesta sua 
vontade neste sentido. 

Assim sendo, caso voce nos honre 
com uma carta para esta segSo, nao esque- 
fa de mencionar se deseja ou nSo ter o seu 
enderego completo publicado. 

As cartas contendo duvidas sobre 
equipamentos e/ou programas, que recebe- 
mos aqui na redagao, estao publicadas a se- 
guir. 

Nunca 6 demais lembrar ao leitor que 
as respostas sSo publicadas na medida em 
que isto se torna poss/vel, pois somos uma 
equipe pequena. Por outro lado, esse es- 
pago sempre esteve aberto para os prd- 
prios fabricantes se posicionarem e diri- 
mirem as duvidas levantadas pelos usua- 
rios. 

Demos prior idade de pubticagSo as 
respostas recebidas; no entanto, isto de- 
pende muito do interesse do prdprio 1a- 
bricante em atender aos seus usuirios. 

Esta 6 uma excelente oportunidade 
para o leitor conferir quais fabricantes efe- 
tivamente se preocupam com seus consu- 
midores. 

A TENQAO CLUBES DE USUA- 
RIOS: Micro Sistemas esti cadastrando os 
clubes de usuirios de microcomputadores 
de todo o Brasil. Caso vocS seja diretor de 
um clube, ou membro, nSo deixe de parti- 
cipar. 

Para ter o nome/enderego de seu clu- 
be publicado. basta enviar uma carta a MS. 
relatando o tipo de servigo que o clube 
presta aos seus membros; quantos mem- 
bros possui; quando e por que toi criado 
etc. 

Nao esquega de informar para qua / 
equipamento o clube funciona e quais as 
exigencies para os novos membros. 

A partir desta iniciativa, os clubes ca- 
dastrados de MSX poderSo adquirir os 
produtos MS Software com um desconto 
especial (esse 6 o nosso presentSo de ano 
novo para os MSXmanfacosl. 



ALO! ALO! FABRICANTES 

Gostaria que me respondessem 3s seguin- 
tes perguntas: 1 ) A empresa Micro Equipa- 
mentos Produtos e Projetos Eletronicos Ltda. 
ainda produz o conversor serial/paralelo e co- 
mutador serial para o CP 400? 2) A empresa 
Alphasystem ainda produz a impressora Al- 
phaprinter IP-40? 3) A Proldgica ainda produz 
cartuchos ou outros equipamentos para o 
CP 400? 4) Onde posso encontrar a interface 
controladora da drives para o CP 400? 5) H3 
possibilidades de rodar CP/M no CP 400? 
61 Quais sao as empresas que ainda comercia- 
lizam software e outros equipamentos para o 
CP 400? Gostaria tamb3m de me correspon- 
der com usuSrios de micros da linha TRS Co- 
lor (CP 4001 ou ZX Spectrum ITK 90 X), pos- 
suo v3rios softs, revistas e informapoes para 
troca , 

Marcelo Claudio Faria - Rua Etelvino Sales 
Alves, 259 Blc D Apto 14 - Jardim Garcia 
Campinas 13060 

Gostaria que me dessem as seguintes in- 
formapoes: 1) Onde posso encontrar compila- 
dores FORTH, Pascal, C e Prolog do TK85/ 
90X/95? 21 Existe alguma interface para dri- 
ve e para TK 95 que permita rodar software 
CP/M e que permita ao TK 95 emular o Apple 
1 1 plus? 3) O software CP/M do CP 500 roda 
no CP/M do Apple e vice-versa? 4) Existe o 
jogo Knight Lore para o Apple II? 5) Existe 
algum sintelizador para o TK 95? 6) Existe 
algum sintetizador de voz para o TK 95? 
Nuno Manuel Oomingues — SHIS Ql 27 - 
Conj. 06 Casa 04 — Brasilia — DF 71600 

Uso um computador TK-2000 hi mais 
ou menos tres anos, que 6 muito util na minha 
area de eletrOnica. Devido a um acidente, a 
placa de circuito impresso quebrou e eu preci- 
so comprar outra. 

Escrevi para a Microdigital, que 6 fabri- 
cante desse micro, mas passados tres meses 
nao recebi resposta. 

Espero que a MS possa me ajudar. Estou 
precisando da placa, sem os componentes. 
Paulo Cesar Menegon de Castro — Campinas 
- SP 

Hi dois meses comprei um Hotbit VI. 2 
que agora comepou a ficar com o teclado de- 
salinhado. Ja fui na assistencia t3cnica e me 
informaram que isto 6 normal. Gostaria de sa- 
ber se realmente este problema acontece com 
todos ou se meu aparelho est3 com defeito no 
teclado. 

Gostaria tamb6m de comprar as revistas 
Micro Sistemas numeros 53, 55. 56, 61, 63, 
64, 68, 70 ou xerox das revistas que tenham 
algo sobre o MSX. Tenho mais interesse pelas 
cinco ultimas edipoes. 

Magno Dittrich - Av. Agua Verde, 1811 - 
Curitiba - PR 80310 

Queria alertar as pessoas que forem com- 
prar ou trocar programas com a loja Alfami- 
cro lnform3tica, pois fui trocar programas 
com eles hi alguns meses, mandei tres disque- 
tes e treze programas, e ate hoje nao recebi os 
programas nem os disquetes. 



Gostaria de saber onde encontrar lojas 
que vendam programas para CP 500 e tam- 
bem de troc3-los. 

Maria JCilia Monteiro de Almeida Rua Co- 
lombia, 156 Quintino - Rio de Janeiro - 
RJ 21380 

Pepo que me esclarepam algumas duvidas 
sobre o padrao MSX : 1 1 A placa de 80 colunas 
s6 funciona com drive e monitor e aumenta a 
resolupao grafica do computador? A do Hot- 
bit n£o funciona no Expert? Qual o problema 
com a TV? 2) A expans£o de 64 Kb nao serve 
para programapSo em Basic? Por que? Para 
qual linguagem entao? E novamente, a do 
Hotbit nao funciona no Expert? 3) Segundo 
fui informado, a instalapao destas placas ser- 
veria apenas para rodar uns joguinhos que es- 
tao sendo lanpados no Japao para o MSX 2.0. 
E verdade? 4) Tive notfcias de que existem 
tres sistemas DOS diferentes para a linha MSX. 
Se isto for verdade, qual a diferenpa entre 
eles? Sao compativeis entre si? 5) O que faz 
a compatibilidade entre as linhas MSX — PC? 
Como consegui-la? 

Solival Anacleto da Silva - Rio de Janeiro 
RJ 

Sou proprietJrio de um MSX da Gradien- 
te e um disk drive de 3 1/2" da Tecnoahead. 
Gostaria de saber se alguma softhouse esta au- 
torizada a vender os programas do MS Soft- 
ware neste formato e qual o prepo. 

Gostaria tambem de saber se alguma 
softhouse ]i vende programas como o DESK 
3, PRO KIT scanner e ANGRA 1 e se os ven- 
de em disquetes de 3 1/2" e seus respectivos 
prepos. 

Andrei de A. Formiga — Joao Pessoa — PB 

Resposta - Nenhuma softhouse esta auto- 
riza a vender os programas do MS Software 
em disco 3 1/2", pela simples razSo que eles 
nSo sSo produzidos neste formato. O 3 1/2" 
ainda engatinha no Brasil e qualquer investi- 
mento nesta direcao devera ser precedido pela 
consolidagao do mercado. 

Atualmente tanto os acionadores quanto 
os discos nSo sSo encontrados a venda com 
a mesma facilidade com as quais os usuarios 
de 5 1/4" encontram esses produtos. Aliado 
a isto hi o problema da compatibilidade de 
acesso, que para ser resolvido demand aria um 
grande esforgo de programagao. 

Quanto aos programas. a sine PRO KIT 
ji conta com o zapper 2. 1. scanner 2.0 e files 
1.0. O DESK 3 so estari disponivel para co- 
merc/alizagao em meados de agosto O An- 
gra 1. quando da publicagao desta edigio, ja 
deveri estar 3 venda nos representantes auto- 
rizados. 

Tenho um micro Expert e gostaria que 
me respondessem algumas perguntas: 1) Pos- 
suo um drive DRX 360 da Microsol queapre- 
senta um defeito: ele nao le os ultimos progra- 
mas do disco nem formata (da erro no fim da 
formatapSo). Me disseram que o problema i 
na fonte, que nSo i bem dimensionada. Isto 6 
verdade? Quais sSo as correntes consumidas 
cm 5 e 12 V? 2) Onde posso encontrar assis- 
tencias t£cnicas autorizadas da Microsol em 



MICRO SISTEMAS 



31 






SSo Paulo e no ABC? 3) H4 v4rios programas 
monitores Assembler para MSX no mercado. 
Qual o mais indicado e/ou completo? 41 Ad- 
quiri uma expansSo (cartucho) de 80 colunas 
da Spectravfdeo, proveniente da Alemanha, 
mas ela nSo fuociona aqui por trabalhar em 
50 Hz. Onde poderia transform4-la? 

Alfredo A. T. Gallinucci — Santo Andre — SP 

Resposta: O probtema que vocA mencio- 
na no seu drive jA foi detectado tambAm por 
outros usuArios. Nesses casos, o cabepote do 
drive nSo consegue acessar as ultimas trilhas 
do disco, causando uma sArie de aborrecimen- 
tos ao usuArio. VocA de ve procurar uma assis- 
tencia tecnica, ou o prdprio fabricante, o 
mais rapido possivei. 

Quanto ao editor /montador Assembler, 
todos os encontrados no mercado sSo bons. 
O que im porta mesmo A o usuario se adaptar 
e conhecer bem aquele que escolher para usar. 

Como todos os usuSrios de microcom- 
putadores de cidades interioranas, eu tam- 
b4m sofro com a falta de acervo de material 
didatico e software. Este ultimo problema es- 
t 4 praticamente resolvido com os clubes de 
usuSrios de que participo, mas a questao da 
bibliografia ainda nSo consegui resolver. 

Sendo assim, recorro a voces para uma 
orientapSo mais correta. £ que v4rios progra- 
mas sao para uso exclusivo com joysticks ou 
paddles. Gostaria de saber a disposipao da pi- 
nagem do conector de jogos do Apple (Dis- 
mac D-8105 A) para que eu, como hobbysta 
de eletronica, possa solucionar este problema, 
Alexandre Reis - Sao Gabriel - RS 

Recentemente assumi a tarefa de "tornar 
util" urn computador CP 200s, que se en- 
contrava 4 disposipao (abandonado) em um la- 
boratbrio de minha escola. PorSm, tenho en- 
contrado dificuldades para conseguir informa- 
p6es atualizadas sobre software e perifSricos 
para esses micros. 

Gostaria que me respondessem 4s se- 
guintes perguntas: 1) Ainda h4, por acaso, al- 
guma coisa parecida com o CP 200s no merca- 
do? 2) Em caso negativo, como e onde conse- 
guir programas para esses micros (Assemblers, 
Disassemblers, compiladores, etc.)? 3) Idem 
com respeito a perifSricos (interface para im- 
oressora. gravador EPROM, expansbes de me- 
mbria, etc.). 

Luis Guilherme Barbosa Rolim - R. Lemos 
Cunha, 389/702 - Icaral - Niterbi - RJ 
24230 



LINHA DIRETA 

Sou um dos inumeros usuSrios dos pro- 
gramas do Renato Degiovani e recentemente 
adquiri um MSX 2. Gostaria de perguntar ao 
Renato quando teremos os programas GRA- 
PHOS III, EDITOR DE ADVENTURES. 
ZAPPER e tantos outros para o MSX 2? 

Gostaria de ter uma resposta, pois tam- 
b6m sou programador e a minha vontade 4 me 
tornar um programador como o Renato. Acho 
que voces podiam publicar esta carta pois co- 
nhepo .multa gente que pensa como eu. 
MSrcio F. Carvalho - Belo Horizonte - MG 

Resposta: Caro MArcio. criar um progra- 
ma para uma determinada Iinha de computa- 
dor A relativamente simples. O diffcil (quase 
imposs/vel no Brasil) A transformar este mes- 
mo programs em um produto comercial viA- 
vet. 

AlAm dos problemas jA bastante discuti- 
dos acerca da pirataria, os autores enfrentam 
a total falta de apoio dos fabricantes. Nao me 
'efiro apenas As informapdes tAcnicas. AliAs, 



quando se quer ter informapdes tAcnicas segu- 
ras sobre um determinado micro, basta procu- 
rar a literature do seu pal’s de origem. 

As informapdes que um produtor de 
software necessita dizem respeito principal- 
mente A base de equipamentos realmente ins- 
talada. Aqui no Brasil, os fabricantes gostam 
de dizer que jA venderam um, dois ou atA tris 
milhoes de micros quando se sabe que o nu- 
mero real nem sequer se aproxima disto. Seria 
um desastre total se nds, os produtores, nos 
baseAssemos nas informapdes divulgadas pelos 
fabricantes. 

Veja o prdprio MSX 1. Somente agora, 
apos quase dois anos do seu lanpamento A que 
se pode ter a seguranpa da existSncia de um 
mercado consumidor que irA viabilizar qual- 
quer investimento em criapao e produpao de 
software. Mas nds chegamos a isso nao pelas 
informapdes dos fabricantes. e sim pelas nos- 
sas prdprias experiences nessa Area. 

Quanto ao MSX 2. todo final de ano um 

fabricante diz quo irA lanpA-lo. Pessoalmente 
nao duvido da intenpao deles, porAm o inter- 
valo que separa a vontade de fabricar o MSX 2 
e a existence de uma base de no minimo 50 
mil mAquinas realmente funcionando A bas- 
tante grande. 

AlAm disto. A preciso sempre separar a 
nossa paixao por um microcomputador da sua 
viabilidade cpmercial. Esta A uma anAlise difi- 
cil de ser feita e que depende muito das infor- 
mapdes que cada um tern. 

Todos nds, usuArios de MSX, gostaria- 
mos de ter os 99 mil colegas MSXmaniacos 
que comporiam a base dos 100 mil MSXs no 
Brasil. Infelizmente, por diversas razoes, este 
nao A um dado real com o qual possa mos 
con tar. 

Quanto aos programas para o MSX 2. 
eles existirSo na medida em que o MSX 2 exis- 
tir, e se atA IA nao tiver surgido no Brasil uma 
outra Iinha de micro domAstico mais acessi- 
vel e com mais recursos. 
t Renato Degiovani) 

CRiTICASESUGESTOES 

Apreciaria muito um artigo e se possfvel 
um exemplo de um programa fonte em Turbo 
Pascal 4.0 para redefinir qualquer tecla do te- 
clado do IBM PC. 

Sei que existe essa possibilidade. pois o 
fabricante do PC que utilizo me forneceu um 
programa objeto com esta final idade, redefi- 
nindo as teclas que eu especifiquei. 

Uso esse programa em conjunto com o 
software de comunicapSo "Z".da Humana In- 
formStica, na emulapSo de terminal Burroughs 
TD830, justamente reposicionando as teclas 
para facilitar a digitapao. 

Esse programa fica residente em memb- 
ria, sendo no entanto possfvel desinstal4-lo 
a qualquer instante atrav4s da digitapao do no- 
me do mesmo seguido do sinal — (menos), a 
partir do DOS. 

Infelizmente nSo me forneceram o pro- 
grama fonte. alegando que h4 necessidade de 
conheci memos muito prof undos da BIOS e 
rotinas de interruppoes para se fazer um pro- 
grama deste tipo. 

Acredito que uma materia abordando es- 
se tema seria muito interessante para uma 
grande parcela dos leitores. 

Valerio F. Laube - Schroeder - SC 

Gostaria de sugerir A MS que fizesse uma 
mat4ria sobre a Amiga 500 pois, pelo que te- 
nho notado em conversas com amigos, este 6 
o micro que substituirS o MSX. Ele 6 super- 
potente (um mega de membria RAM);disp6e 
de multiprocessamento; altfssima resolupSo 

grSfica; tern design lindo e 4 muito barato. 



O mais importante, no entanto, 6 que ele 
roda diretamente os mesmos programas que 
existem para o PC e o Mac. 

Paulo Alfredo G. de Freitas - Curitiba — PR 

Por que MS nao faz uma materia sobre 
os micros que estSo fazendo o maior sucesso 
14 fora (sb para citar um, que tal o Amiga 
500?) 

Pedro Cardoso Alves — Sao Paulo - SP 

Um amigo meu tern uma Amiga 500 e eu 
fiquei "embasbacado" quando ele me mos- 
trou o potencial desse micro. Eu pergunto: 
quando teremos o nosso Amiga 500 fabricado 
aqui no Brasil? Acordem, fabricantesl 
Marcos G. Teixeira - Ribeirao Preto - SP 

Resposta: Temos realmente notado um 
inter esse muito grande dos leitores acerca dos 
micros da iinha Amiga. De fato, eles sao de fa- 
zer in veja ao usuArio de qualquer outra 
Iinha. 

Estamos preparando para as proximas 
edipdes uma matAria sobre o Amiga 500. 
Aguardem so mais um pouquinho. 



SOS AOS LEITORES 

Possuo um MSX Hotbit com drive de 5 

I /4". Gostaria de trocar manuais, programas, 
dicas, macetes e principalmente instrupoes de 
jogos. 

Gostaria de saber se alguem possui imu- 
nidade ou vidas infinitas para o jogo NEME- 
SIS e como ir para as suas fases secretas. 
Fernando Augusto Tidei - R. D. Augusto 
de Miranda, 1130 - Sao Paulo - SP 05026 

H4 cerca de dois meses adquiri, motiva- 
do pelo prepo e pelo fato de ser gr4fica, uma 
impressora Graphix MTA. Possuo um Apple 

II + e comprei uma interface do tipo GRAP- 
PLE R. Consegui imprimir textos muito facil- 
mente, mas para imprimir gr4ficos tive e 
tenho diversos problemas. 

Depois de muita luta, descobri que a 
Graphix MTA 6 compatfvel com a Epson MX- 
70 e assim consegui imprimir com alguns pro- 
gramas que possufam a tal opgao no SET-UP. 
A maioria dos programas, entretanto, n4o tern 
a oppao Epson MX-70 e sendo assim nao con- 
sigo us4-los. 

£ o caso do PRINT SHOP e do PRINT- 
MASTER, que sSo os programas que mais gos- 
taria de usar. Se algu4m souber como resolver 
este problema, AJUDE-MEIII 

Outra coisa que gostaria de saber 4 qual 
6 exatamente, para a minha impressora, a con- 
figurapSo da interface (o ajuste ideal das 4 
chaves da interface). 

Eduardo Augusto de Andrade Ramos - R. 
Nascimento Silva 361/201 - Rio de Janeiro 
RJ 22421 

Necessito com urgdncia do manual Soft- 
ware AVSIMZ 80 da AVOCET SYSTEMS - 
qualquer informapSo ser4 de grande import4n- 
cia. 

Gustavo Carrer Ignacio Azevedo - R. Ademar 
de Barros, 456 - Ituverava - Sao Paulo - SP 



PAINEL 

Sou micromanfaco, embora sempre enga- 
tinhando nesta coisa fant4stica que e lidar 
com o computador. Possuo um CP 500, e co- 
mo todos os brasileiros sonho com um com- 
putador melhor, por4m tenho que conviver 
com a falta de recursos para adquiri-lo, o 
que me faz ficar de quando em vez meio frus 
trado; mas... 
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Gostaria de obter o manual do DIAG- 
NOS/CMD, pois possuo este software e nSo 
sei como utilizd-lo. Ficaria bastante feliz se 
algu6m pudesse me ajudar enviando-o em por- 
tugues. Pago as despesas. 

Angela Fernandes - R. Joaquim Tavora 110/ 
502- B - Niteroi - RJ 24230 

Sou um usuJrio de um MSX com drive e 
gravador e gostaria de trocar programas diver- 
sos. Tenho tambdm grande interesse em ad- 
quirir manuais originais de programas, pelos 
quais pagarei um prego justo. 

F&bio Lu(s Fernandes Gaion — R. Cel. Ge- 
retto, 1036 - Ibitinga - SP 14940 

Vendo um CP 400 Color 1 1 com 64 Kby- 
tes de memoria, pouco uso. Acompanha livros 
de BASIC e manual do computador. dois joys- 
ticks e jogos. 

Gostaria tamWm de trocar jogos e dicas 
para o computador Hotbit (MSX). _ 

Vlamir de Souza Lima - R. Territorio do Rio 
Branco 28E/201 - Salvador - BA 41830 

Possuo um CP 400 Color I e aviso aos 
leitores de MS que tenham CP 400 Color I 
ou II, e queiram vende-los, que eu os compro 
(com pelo menos 64 K). Compro tambem uni- 
dades de disco, toca fitas, programas, livros, 
revistas, perif6ricos e qualquer coisa para o 
Color (incluindo joysticks analdgicos ou nao). 

Gostaria tamb6m de me corresponder 
com usu$rios de CP 400 Color e IBM-PC para 
troca de programas, livros. etc. 

F&bio Barreto Hawkins - R. Cristovao de Bar- 
ros 101/202 - Aracaju SE 49020 

Possuo um MSX com drive 5 1 /4 e 3 1 /2 
e diversos programas (jogos e utilitarios). Te- 



nho grande interesse em adventures, computa- 
pao grdfica e o uso do micro na area profissio- 
nal. 

Desejo entrar em contato com usudrios 
para troca de programas e dicas. 

MaurTcio AraCijo - Caixa Postal 1004 — Joao 
Pessoa PB 58001 

Vendo um TK 90X (64K) novo, acompa- 
nhado de manual mais um livro de programas 
e um livro de base para o TK 90X. 

Maurlcio Gallo Neto — R. Francisco Para- 
nhos, 407 - Cabo Frio - RJ 28900 

Gostaria de trocar programas com usud- 
rios da linha MSX. 

Mauro Pressato - R. Delfim Moreira, 481-B - 
Vaginha - MG 37100 

Gostaria de fundar um clube de compu- 
tadores MSX para troca de correspondences, 
sugestoes e programas. 

Propomos tambem atividades no ramo 
de eletronica, troca de selos e revistas. 
Leonardo Fontes de Sales Caixa Postal 361 
Parnalba - PI 64200 

Possuo um TK 90X. tenho vdrias dicas 
de POKES para vida eterna em varios jogos. 
Gostaria de trocar jogos, programas. mapas e 
manuais. 

Marcelo Martins do Carmo R. Itanhaem, 40 
- Taubatd - SP 12010 

Gostaria de entrar em contato com usud- 
rios do TK 90 X para troca de informacoes, 
xerox de manuais e compra de programas mu- 
sicals indditos. 

Estou querendo comprar o PSG do TK 
85 que saiu de linha de producao. Estou pre- 



cisando dos manuais dos programas Lenda da 
Gdvea, Art Studio, Artista 1 e 2. Desejo com- 
prar programas que usem light pen. 

Gilmar da Silva - R. Aguinaldo de Macedo, 
37 - Campinas - SP 13043 

Sou possuidor de um CP 400. com siste- 
ma cassete e possuo um acervo de mais de 100 
programas, 

Gostaria de trocd-los com pessoas de to- 
do o Brasil que possuam esta maquina. Eu nao 
possuo impressora, entao a troca seria feita 
por fita cassete. 

Silmar da Rosa Fonseca Av. Palmira Gobbi, 
886/1010 - Poa RS 90250 

Procuro usudrios sdrios do ZX Spectrum 
48K e 128K para troca de ideias e programas. 
Possuo um ZX Spectrum 128K + 3, interface 
de videotexto e modem, impressora Olivia, 
mouse, varios programas em fita e disquete 
(3"), vdrias revistas (Crash, YS, SU, ZX Com- 
puting), tambdm alguns manuais tecnicos. 

Procuro principalmente usuarios do 128 
+ 2 e 128 + 3, para os quais nao ha muito ma- 
terial disponfvel no Brasil. 

Estou precisando urgentemente de um 
ZX Interface One e estou vendendo uma im- 
pressora Alphacom 32. 

Ricardo Suzuki Caixa Postal 55259 Sao 
Paulo SP 04799 



Envie sua correspondOncia para: ATI — 
Andlise Teleprocessamento e Informdtica 
Editors Ltda., Av. Presidents Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/ 

RJ, CEP 20030, Segdo Cartas/ Redapao 
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O MICRO COM MANIA 
DE GRANDEZA" 



O PC TECH TURBO XT e um microcomputador 
compati'vel com o PC/XT da IBM com clock 
de 4,77 MHZ ou 8 MHZ. 



Memoria RAM de 512 Kb a 768 Kb 
Drives 5 1/4” Slim 
Winchester de 20 Mb e 40 Mb 
Fita Streamer 
Maior garantia do mercado 
Assistencia tecniea em todo Pais. 
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PC TECH COM. E IND. LTDA 



Telex 36461 SUOP 



SUPORTE INFORMATICA LTDA. - Rua Almirante Ary Paxxeiras, 565 - Rocha 
PC TECH COM. E IND. LTDA. - Av. Jose Maria Whitaker, 833 - Mirandopolis - 
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MSXUDG 








JoSo Jose Marques Gonpalves 



MSXUDG 6 um editor de caracteres 
de fScil operapao para o MSX. Todas as 
funpoes sao executadas atrav6s de teclas 
especiais, que s§o mostradas no vi'deo 
para uma rSpida referenda do usudrio. 
Os caracteres editados podem ser gra- 
vados em disco ou fita. 

As teclas utilizadas pelo programa 
sao: 

CSL/HOME — ativa o modo neutro 
durante a edipao; 

INS - ativa o modo de inserpSo du- 
rante a edipao; 

DEL - ativa o modo de delepao du- 
rante a edipSfo; 

SPACE — ativa/desativa o modo de 
edipao; 

FI - SAVE; 

F2 - LOAD; 

SETAS — controle do cursor. 

A tabela de caracteres e exibida in- 
tegralmente no video para que o usud- 
rio tenha uma visao geral do seu traba- 
Iho. A selepao do caracter 6 feita atraves 
de um cursor que se movimenta sobre 
essa tabela e efetuada por interm^dio 
da barra de espapo. A edipao £ realizada 
numa matriz ampliada do caracter, cujo 
aspecto real pode ser acompanhado pela 
tabela. As oppoes de SAVE e LOAD 
pedirao um nome para o arquivo e usa- 
rao o periferico default, que pode ser 
tanto o disco quanto a fita cassete. 

O PROGRAMA 

Este editor utiliza uma t&nica de 
programapao diferente daquela empre- 
gada nos editores de caracteres conheci- 
dos para o MSX. Normalmente tais 
programas modificam apenas a tabela 
de definipao de caracteres da VRAM, 
a qual e atualizada pelo comando 
SCREEN. Em consequencia disto, tor- 
na-se necessirio executar uma rotina 
para copiar os caracteres redefinidos 



na VRAM toda vez que for usado o 
comando SCREEN. AI6m do gasto 
extra de memdria em que isto implica, 
tal processo nSo permite que sejam 
utilizados caracteres redefinidos nos 
screens 2 e 3, pois estes modos grS- 
ficos n£o possuem tabela de definipcfo 
de caracteres na VRAM. 

Ao inv6s disto o MSXUDG altera 
uma variSvel do sistema conhecida como 
CGPNT, no enderepo F91FH, que in- 
forma para o BASIC em qual slot e 
enderepo da memoria se encontra a 
tabela de caracteres que ser 6 copiada 
na VRAM pelo comando SCREEN. 



Os dois primeiros bytes da variivel 
apontam o enderepo e o terceiro byte 
indica o slot desta tabela, que tambem 
6 usada pelo comando PRINT # 1 
nas telas de alta resolupao grafica. 
Alem de possibilitar o uso de caracte- 
res redefinidos em alta resolupib, a 
grande vantagem desta tdcnica 6 que 
eia permite posicionar os 2048 bytes 
referentes £ nova tabela de caracteres 
num lugar que n£o incomode ningu^m 
- como a pagina 0 da memoria RAM, 
por exemplo. Desse modo podemos 
usufruir da redefinipao enquanto toda 
a £rea de trabalho do BASIC permanece 
livre para acomodar nossos programas. 



0 ' JOAO JOSE MARQUES GONCALVES , ITAJUBA 
10 COL OR 1, II, 10:CLEAR200:F0RF-$<HBFF4Tn?<H 

CO?2:READA*:pokef, val : nex r : DEFD 

SR—&HBFF4 : DEFUSR 1 -*H 1 36 .* DEFUSR2-8.HCOOO : F 
-USR <0> : SCREEN2. 2, 0: FORG-OTOl : B*=” “ : FORF 
■ 1 T032: READA* : B*“B**CHR* (VAL ( "S-H" *A* ) > :N 
ext:sprite*(G)-b*:next:maxfiles-i:open"G 
rp: -A si 

20 0NERR0RG0T0320: ONSTC1PGOSUB320: STOPON: 
P0KE&HF91 F , INP(|rHA8> \64: P0KEf<HF920, ?<H23: 
PQKE&HF92 1 , S«HC0 

30 ONI EYGCJSUBl 90, 2IO:i'EY(l > ON: KEY <2) ON 
40 B*-"S«.>AOR640BL64DOR64D0L64D8R64DBL64D 
BR64D8L64D8R64U64L8D64LBU64L8D64L8U64LBD 
64L8U64LBD64L0U64" 

30 VDP( 1 >-VDP< 1 » X0R96: LINE (192, 20) -<56,6 
) , 1 4. BF: LINE (192, 20) -(56, 6) , ,B:PSET(65, 1 
0) . 14:PRINT#l . "<« MSX I JOG >>>" 

60 LINE (33, 32) -(33,52) : LINE <64, 32) - (64. 5 
2) : LINE (4, 42) -(94,42) t LINE (94, 52) -(4, 32) 
. .D:PRESET8TEP<2,2>:PRINT#!,"NEU INS DEI- 

70 LINE <6. 70) -(90, 154) , , BF: LINE (8, 72) - <8 
8, 1 52) ,11. B: PRESET (O, 157) : PRINT HI," FI - 
SAVE": PR I NT HI . " F2 I OAD M : G0SIJB230 
80 VDP(I)-VDP(1 > X0R96:CX-lO0:CY»43 
90 PUTSPRITEI , (0.209) :PUTSPRI7E2, ( 14,43) 
, 2, 1 ILINE (9, 73) -<86, 151 ) , , BF : PSET < 16,80) 

, 151 DRAWS* 

100 k-6TICK(0):CX-CX*( <K>1ANDK5)*(CX<22 
0)-(K >5>*(CX lOO) >»8:CY=CY+((K>3ANDK<7>* 
(CY< 163) - (K- 10RK'-2QRK-8) * (CY>43> ) *8: PUTS 
PRITEO, (CX.CY) . 13: IFSTR IG (0) =00R I NKEY*< . 
" " THEN 1 00 

1 10 BEEP: CC- (CX- 100) /8+ (CY-43) *2: EC— fcHCO 
23+CC»B:G=B2:F0RF=ECT0EC*7:H=l8: I "PEEP (F 
) :FOftO-lT08: I-I*2AND51 1 : IF I AND256THENL IN 
E (H, G) — (H+4 . G*4 ) . 15. BF 

120 H-H*0:NEXT:6-G*0:Nhxi : i-usri < o> :F-i7 
:G-80 

130 PUTSPRITEI, (F.G) . 1 3: K=ST I CK <0> : AS= IN 
KEY*: IFA*=CHR*<18)THENI-l:PUTSPRITE2. (46 
1 43) : ELSE IF A* «CHR* (127) THEN 1*2: PUTSPRI TE 
2, (78,43) : ELSE IFA*-CHR*( 11 ) THENI -O: PUTSP 
RITE2, (14,43) 

140 K=STICK<0) :F=F*< (K>1ANDK<5>*<F- 73>-< 
K>5) • (F 17) ) •8:G»G*( (K>3ANDK< 7) * (G< 132>- 
(K-10Rk-20RK-8>*<8'80> ) *8 
130 K-(G-80)/8:J-<F-17>/8 



160 I F I - 1 THENPOK EEC+K , PEEK ( EC+K ) 0R2 ( 7- J 
> :LINE(lB*J«8,82*K*8>-(22+J*8,86«-K*B> . 13 
, BF : PSET (CX»4*-J , CY*5*K > 

170 I F I -2THENP0KEEC+K, PEE) (EC+K > ANDN0T2 
(7-J ) : L INE ( 1B*J«0. 82*K*8> - (22»J»8, 86*1 *8 
) , . BF : PSET (CX+4+J , CY+-5+K) , 14 
180 I FA*- "THENI 30ELSE90 

190 KEY(1)0FF:KEY(2)0FF:G0SUB270: IFP03T 
HENPLAY " 04S0M 1 OOOOT255BT 1 40A” : FORK- 1 TD20 
OS NEXT: BSAVEN** “ . UDB" . 8.HCOOO, «,HC822: PLAY 
••T255BT140A" 

200 G0TO22O 

210 KEY ( 1 ) OFF: KEY <2> OFF : G0SUB270: IFP03T 
HENPLAY " 04S0M 1 0»X»0T233BT 1 40A" : FORK - 1 T020 
O : NE X T : BLQADN* + “ . UDG " : PLAY " T255BT 1 40A “ : G 
0SUB230 

220 LINE (77, 1 84 ) - <7 . 1 73) . 1 1 . BF: KEY ( I ) ON: 
KEY(2)DN:RETURN 

230 LINE (239, 183>-<97,41 ) , 1 4 , BF : L I NE (240 
, 1 84 ) - ( 96 , 40 > , , R 

240 FORF -OT0255 : I FPMOD 1 6-OTHENPR I NT# 1 , : P 
PINT# 1, SPG ( 13) 

250 I FF< 32T HENPR I NT # 1 , CHR* ( 1 ) ♦CHR* ( 64+F ) 

? ELSEPR I NT# 1 , CHR* < F ) { 

260 NEXT: RETURN 

270 rfep:poki;*h*9if,o:po) eihf920.<.hbf:po 
KE&HF921 ,*H1B 

280 N*-"“:L-8:LINE(77, 184>-(7. 173) , ,b:pr 
ESETSTEP (5,2) 

290 p*- input* ( i ) : p-asc<p*> :n-len<n») :m-p 
< 13ANDP 0ANDP' >3 

300 IF (P 32X0RP-3ORN-L) ANDMORP- 1 270RP-32 
ANDN=00RP=1 3ANDN=0THEN290ELSEIFP=8ANDN >0 
THENN*=LEFT* (N* . N- 1 ) : L INESTEP (O, 8) -STEP ( 
-8. -8) , 1 1 ,BF:G0TO290ELSEIFP< M3ANDP 1 31 H 
ENIFP< >8THENN*-N*«P*: PRINT* 1 ,P*I : GOT 0290 
ELSE290 

310 P0KE*rMF91F, INP («<HA8> \64 : P0KE8.HF920, 8. 
H23: PO) E^HF92 1 . «-HCO: RETURN 

320 F-USR2<0> :POKE«-HF920.*.HBF:POI E8.HF921 
, «,H 1 B : ONERRORGOTOO 

330 DATA21 . BF. IB. 1 1 ,23, CO, 1 , 0, 8, ED, BO,C9 
,F3,DB. A8.F5,47,F.F.F,F.B0,D3. A8.2I,23.C 
0, 1 1 .BF. IB, 1 ,0.8. ED. BO. E6, 3, 32. 1F.F9.F1. 
D3, A8,FB,C9,0,0 

340 DAT AO, O, 3F, 3F, 30, 30, 30, 30, 30, 30, 30. 3 
0,3F,3F,0,0,0,0,FC,FC.C,C,C,C,C.C,C.C,FC 
,FC, 0,0,0, 7C , 7C, 7C. 7C, 7C ,0,0, 0,0, 0,0, 0,0 
.0,0. 0,0, 0.0. 0.0, 0,0, 0.0. 0,0, 0,0. 0.0 
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Se voce 6 o feliz proprietbrio de um micro TK90X ou TK95, o nd- 
mero 6912 deve Ihe parecer dolorosamente familiar. Esta nada desprezf- 
vel quantidade de bytes, gasta no mapeamento do vfdeo dos ZX 
Spectrum-compatfveis (256 pontos horizontais X 192 pontos verticals + 
atributos), representa a principal causa da calvfcie precoce normalmente 
observada nos usubrios de tais mbquinas que tentam desenvolver progra- 
mas com um visual mais apurado — sem falar no dosespero de alguns 
outros que cultivam o estranho habito de esperar um programa com 
uma ou mais telas carregar do gravador cassete. Assim, meu prezado 
amigo, antes que vocS tambbm se torne mais um candidato ao controle 
de pressSo ou a um implante capilar em tSo tenra idade (se 6 que ainda 
nSo chegou IS), aceite este conselho: estb na hora de comegar a compac- 
tar as suas telas. 

Caso vocb ainda nSo tenha parado para pensar nisso, tal feito pode 
ser conseguido mediante o uso de uma tbcnica bastante simples. Re- 
pare que o byte que aparece com mais frequencia numa tela b o zero, 
ou seja, o espago em branco. Desse modo, o que temos a fazer 6 criar 
uma tabela apontando a posigffo e a quantidade de espagos encontra- 
dos em sequencia num trecho da tela. Os bytes diferentes de zero 
serSo agrupados 3 parte, numa outra posigao da tabela. 

Tecnicamente, podemos resumir o procedimento da seguinte forma: 
se o byte que retiramos da tela for zero, incrementa-se um contador 
a ele associado. Caso este atinja 255 (maior valor possfvel para um 
byte num micro de 8 bits), transferimos o contador para a tabela de 
zeros e o ressetamos em seguida. Para recuperar uma tela comprimida 
por este processo, basta seguir o caminho inverso: verificamos a memb- 
ria e, se acharmos um zero, preenchemos a tela com os "n" espagos 
indicados pela tabela. Se o byte encontrado for diferente de zero, nbs 
o transferimos normalmente para a tela. 

UTILIZANDO O PROGRAMA 

Rode o programa da listagem 1 e grave a rotina com o comando 
SAVE "ROTRED" CODE 57000,200. Para carregar 6 so dar o coman- 
do CLEAR 50000: LOAD " " CODE. Agora, com a rotina na mem6- 
ria, prepare uma tela e introduza o programa da listagem 2; ele lr£ 
gravar a tela no formato comprimido. Para recuperar uma tela reduzi- 
da, digite o seguinte comando direto: 

CLEAR 50000: LOAD "" CODE: RAND USR 57100 

A estrutura da membria durante a utilizagao do programa ficara co- 
mo ilustrado na figura 1 . 

Para encerrar, e a fim de que voce nSo perca os ultimos cabelos que 
Ihe restam, nSo custa lembrar o 6bvio: a eficibncia deste programa 6 
diretamente proporcional a quantidade de bytes zero existentes na 
tela. Desse modo, a aplicagao da rotina em telas com poucos espagos 
resultarb em pequena economia de membria. 

£ 




Listagem 2 




*EXPANS0R DE SLOT (C/4 SLOTS) 

♦ GABINETE P/DRIVE COM FONTE FRIA 
* INTERFACE DUPLA P/DRIVE 



* DRIVE 5.1/4 SLINCOMPLETO 
* PLACA 80 COLUNAS 
*M0DEN DE COMUNICAQAO 



W t*mt — SBh *PAC0rt0 EM DISCO: 1 00 J0G0S (ESC0LHER) + 5 APUCATIVOS + 10DISCOS =Cz$ 40. 0( 
? f"'l / -|- & J I # PACOTAO EM FITA: 1 00 J0G0S (ESC0LHER) + 5 APUCATIVOS + 7 PITAS -CzS 40. 0( 

O DE PROGRAMAS PARA FAZER A SUA ESCOLHA. ATENDEMOS TOOOS ESTADOS EM 24 HORAS VIA SEDEX. 
FAZER SEU PEDIDO ENVIE CHEQUE NOMINAL COM CARTA DETALHADA PARA A. NASSER. 

NEIRO: RUA GONZAGA BASTOS 411/203 - VILA ISABEL - RJ CEP 20541 - TEL (021) 234-0775 
AV 7 DE SETEMBRO. 3146 LCXJA 20 - SHOPPING SETE - CURITIBA - PR - CEP 80010 - TEL 233-0046 




Este pequeno programa am linguagem da 
mSquina possibilita o uso da minusculas em 
computadores compatfveis com o Apple II+. 
Como se sabe, tais equipamentos possuem le- 
tras minusculas, embora nSo seja posslvel im- 
primi-las diretamente com o comando PRINT. 

UTILIZANDO O PROGRAMA 

Digite a listagem 1 com o auxflio da um 
editor Assembler ou atravgs do monitor resi- 
dente e salve-a com o comando BSAVE 
M I N USC BY 81 A$88B8, L$100. Em seguida 
digite o programa da listagem 2 a grave-o com 
SAVE CARREGADOR. E importante obser- 
var que o carregador deve ser executado antes 
da rotina em linguagem da mdquina; assim, 
6 recomend^vel que estas linhas sejam incluf- 
das no comego de todo programa que usar o 
utilit£rio. 

Como nSo 6 possfvel digitar as letras mi- 
nusculas diretamente pelo teclado, a solugffo 
foi criar um novo comando que contornasse 
este problema, empregando-se o recurso do& 
Este novo comando tern o seguinte formato: 

nnnn &'TEXTO" 

Onde nnnn 6 o numero da linha (que po- 
de ser omitido em modo direto) e "TEXTO" 
corresponde a string a ser impressa, a qual de- 
ve sempre vir entre aspas. 

Todo o texto colocado entre aspas serd 



impresso em minusculas. Caso seja necess£rio 
alternar maiusculas e minusculas. basta incluir 
antes da letra que se deseja em maiusculo um 

CTRL + A, ou seja teclar a letra A enquanto 
se mant6m pressionada a tecla CONTROL. 
Desse modo, a declaragao: 

&''<fcTRL + A>MICRO 
<fcTRL +A>SISTEMAS" 

Produzir^ a string: 

Micro Sistemas 

QBSERVACOES 

1) Tanto os ndmeros como sinais grSfi- 
cos devem ser precedidos por CTRL + A; 

2) A sintaxe adicional do PRINT nao va- 
le para o 8) com excegao do ponto e vfrgula, 
que posicionarS o cursor no fim da frase; 

3) O programa nffo imprime varidveis 
string ou numfiricas, mas apenas textos entre 
aspas; 

4) Voce pode direcionar a safda para a 
impressora da mesma forma que faria comum 
PRINT normal, ou seja. utilizando um PR#n, 
onde n 6 o slot onde estS a impressora. 
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Listagem 1 



10 PRINT CHR* (4> "BLOAD MINUSC 
BY &" 

20 CALL 35140 
30 H I MEM i 35000 
40 TEXT i HOME 
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CONVITE AOS NAO SOCIOS DO MISC 

S eja voce um usuario profissional ou de lazer 

convidamos a participar do melhor clube de MSX do Brasil. A proposta fundamental do MISC 6 dar apoio a nivel de in- 
forma?fo,servi 5 o e produto. 

Esta retaguarda e proporcionada por uma jovem equipe de especialistas em MSX. 0 Jomal do MSX 6 uma exclusividade dos 
associados. Para ingressar no MISC voce paga uma taxa unica de Cz$ 6.500,00 (atd 31/01) e Cz $ 8.000,00 (de 01 a 28/02). 
Pague com cheque nominal a EM BASS EDITOR A LTD A., ou atravds de dep6sito no BRADESCO agenda 0108 conta 141 .1 84-5. 
Ao fazer sua inscri^So informe-nos se quer receber sua co^So-brinde de jogos em K-7 ou disco 5 1/4. 



MISC-MSX INTERNATIONAL SERVICE CLUB 

Rua Xavier de Toledo, 210 cj. 23 

01048 - S.?o Paulo - SP - FONE: (01 1) 34-8391 e 36-3226 





clube do leitor 



iGasdicasdiGasdic 



MSX 



:10 •’ 



ZX SPECTRUM 



GRAVACAO EH 1800 BAUDS 



20 7 ■ 

Grave sous proqramas numa 
velocidade intermedi ar i a entre 
2400 e 1200 bauds". 

POKE 62470 , 55 : POKE 62 47 1,61: 
POKE 62472 , 25 : POKE 62473 , 30 .1 
POKE 62474,23 



LUIZ ALBERTO RODRIGUES - DF 



APPLE 



10 ' 



DE DA I X A RESOL.UCAO PARA HGR 



20 ' Esta dica trans-fere todos 
os gra-Ficos de baixa resolucao 
para a tela de alta resolucao 
gra-fica nuraaro 1. 

30 HGR: HCOLOR- 3: FOR Y- 0 TO 3 
9: FOR X- 0 TO 39 

40 IF SCRN < X , Y) THEN X2 « X * 7 
: Y2 - Y * 4 : HCOLOR™ 2 * (SCRN <X 
,Y> > 12 AND SCRN < X , Y ) < 16): F 
OR N = 0 TO 3: HPLOT X2,Y2 + N T 
0 X2 + 6, Y2 +• N! NEXT M 
50 NEXT X , Y 

EDUARDO S A I TO -- SP 



10 REM — 

ESPELHO 



20 CLEAR 64999 

30 FOR N-65000 TO 65018: READ A: 

POKE n,a: next n 
40 DATA 33 , 0 . 64 , 78 , 6 , 8 , 203 , 1 7 , 3 1 
, 1 6 ,251,119,35,1 24 , 254 , 88 , 32 ,241 
,201 

50 PRINT AT 11,15? *' ESPELHO" 

60 PRINT AT 5,3; "Aguarde o espe 
3. hamento" 

70 PAUSE 50 
80 PRINT AT 5,3? 

90 RAND USR 65000 

100 PRINT AT 5,3? "Pressione qua 
1 quor tecla para voitar ao nor 
mal " 

110 PAUSE 0 

120 PRINT AT 5,3? 

130 RAND USR 65000 

140 REM - — 

ROBSON P. RANGEL -- SP 



MSX 



CAVAQUINHO II 



20 PLAY " 05L 1 4S 1 0M2000 " , " 06L 1 4 SM4 
500" 

30 PLAY " B B B B D G 8DGB C # DG A# D G A # " , " B 
BBBDGBDDGA#DGA#DGA#" 

40 PLAY " DGA#DGBDGBDGBC#C#C#BBB8A 
#AG#G. . " , "DGA#DGBDGBDGBC#C#C#BBB 
BA#AG#G- . ■ " 

RENATO LABADIA - SP 



Envie suas dicas para a Redapao de MICRO SISTEMAS 
na Av. Presidente Wilson, 165 - Grupo 1210 - Castelo 
Rio de Janeiro - RJ - CEP 20030 
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S.O.S. MICRO 



ATENDIMENTO INSTANTANEO (2hs.) 
ASSIST£NCIA tGcnica 

Especializado na Srea com 5 anos de 
experience em manutenqSo de: 

MICROS • REDES LOCAIS • MONITORES 
E PERIFERICOS 

Contratos de ManutencSo a partir de 5 OTNs 
Laborat6rio proprio 

ligue j£ e comprove! 

TEL.: 299.1166 



Produtos p/ HSX 



LINHA 







P 01296- S.Pau 



ASSEL Assistencia Elelronlca Lida. 

Asslstencia Tecnica Autorizada 
DISMAC - TEXAS 

REVENOA AUTORIZADA DE 
PEQAS E ACESS0RIOS SHARP 



Assislencia para todas as marcas 
de calculadoras eletronicas. video 
games, maquinas de escrever 
eletronicas, micros da linha 
Apple. 



Rua da Lapa. 107 - loja - Centro - RJ. 

Tel (021) 222-7137 e 221-2989 
Av Mmislro Edgard Romero. 81/307 - 
Madureira 

Tel.: |021 1 390-8225 



• CDX-02 - Interface p/2 Drives 

• VYX-80 - Cartucho 80 Colunas 

• DRX-360- Drive completo 360 Kb 

• PRX-01 - Prograrcador de 2PR0NS 

OUTROS PRODUTOS MSX 

• Oabir.ete .netalico c/for.te para 
Drives YSX - sirrples ou duplo 

• Diskettes - Aplicativos - Jogos 

• Yicro-Yodem p/Videotexto 



Produtos para pc 

• Tmpressoras 80 e 132 colunas 

• Winchester 20 YP - Yaclonal 

• Suprimentos tr* Geral V SX/PC 

• Dstsbi llzsdor de Tensao 



(Deepachamoa para todo o Tlraail) 



TK 95/TK 90X/TK 2.000 
SALZANI Informatics 

* TK BOX: Srow WIk, Sgrznm. Bciond From 
Ic* Castle. Kartlight. Blind Panic. Bionic 
Comand. Side Arns. Blood Valley. Hoppin 
Mad, Dia Show I. Dia Show II. Dia Show III, 
Combai School. Peep Show I. Peep Show II, 
Dan Dire II. Mega Bugs. Fire Fly. 

* TK 2.000: Moon Patrol, Slotetizador de 
vo*. Montezuma's Kevense. Chopllfter, 
Hero. Serpentine. Q. Bert, Xadrez. Buzzard 
Bait. Star Blaster. 

Temm as ultimas no«idadcs em periftricos 
p/todas as linhas de micros. Mesas p Compu- 
tadores. etc. 

- Pagamo* hem p seu rquipamento usado. 
Solicite catalogo gratis. 

12 jogos - CzJ 3.900,00 
2d jogos - C*S h. 500 .00 

60 jogos - CzS 12.000.00 

F.sses precos sao validos p/todos os computa- 
dores e p todos os jogos ( induindo novidades). 
As Bias e as despesas postals sao por nossa 
conta. 



SALZANI Informalica 

Psa. Heitor Levy, 30 Tatuapf 
Cep 03314/S. Paulo/SP 

^ Tel.: (011)296-2013 






Direto da Fabrica. 
DRIVE 5 1/4 DD e 3 1/ 2 
(Super promocao) 

• Impressoras p/MSX 

• Capas p/MSX 

• Monitor p/MSX 

• Multimodem p/MSX 

• Gabinete p/MSX 

• Interface p/MSX 

• Dbase e Supercalc II 



llAsA 

Computadores e Sistemas Ltda. 
Rua Lord Cockrane,775-Ipiranga 
SP-CEP 04213-Telex (1 1)34-224 
Fone: (Oil) 914-2266 



SOFTCLUBES 

A SolucSo em Software 



APPLE CLUBE 

O Club# dot uautrioa de APPLE 
O maior acervo. da program*, com qua 
» 3000 lilulot t tua ditposiclo. Al*m 
ditto, tetnot o APPLE NEWS, urn jomal 
mantal com at nomdadee do club* a qua 
wrv* como maw da comumcaclo entrt 
oa adews para iroca de mlormacdet 

PC CLUBE 

O Clube dot usuOrios do IBM-PC. Com 
mais de 2.000 ditcos com at ultimas no- 
vidades do mercado internacional. 
Mantalmente tamos o PCNEWS, um ca- 
nal df comunicaclo emra os sdciot com 
tod at at mlormacdet to bra o mundo dot 
16 BITS. 

SOFTCLUBES 

Caixa Postal 12190 CEP 02098 
Tel.: (011) 299-1166 SAO PAULO SP 



Nao deixe 
para depot's 




E HORA DE 
ASSINAR 



/VI i cro 



SSo sete anos de lideranca no mercado editorial de informati- 
ca que fizeram de MICRO SISTEMAS uma revista indispensavel para 
os possuidores de microcomputadores. Sendo assim nao perca mais 
tempo e assine logo MICRO SISTEMAS. 

Com ela voce podera participar de tudo o que acontece de real- 
mente importante no setor de informdtica. Sao dicas, programas 
e novidades que nao podem faltar na estante do leitor exigente. 

I Estou enviando o cheque n? no valor de CzS 15.000,00 nominal £ 

1 ATI EDITORA LTDA., referente a uma assinatura anual (12 numeros) de 
I MICRO SISTEMAS 



ENDERECO: 


CEP: CIDADE: 


UF: TEL: 




PROFISSAO: 


DATA/NASCIMENTO / 


/ 


EQUIPAMENTO: 


DRIVE: 





INTERFACE:. 
DATA: 



IMPRESSORA: 

5SINATURA: 



ATI — Andlise, Teleprocessamento e Informatics Editors Ltda. 

Av. Presidents Wilson, 165 — Gr. 1210 

Rio de Janeiro - RJ - CEP 20030 - Tel,: (021) 262-6306 

















Devido a quantidade de cartas recebidas, nesta edicao 
a coluna ADVENTURES fara um grande balanco do que 
nos foi mais solicitado em 1988. Atendendo aos pedidos, 
aqui esta o mapa completo do AMAZONIA e mais 

algumas dicas do jogo. 



Aprecio muito os adventures, principalmente os programados 
pelo Renato Degiovani. For esse motivo gostaria que ele me desse 
algumas dicas sobre o jogo AMAZONIA. 

As minhas dificuldades sSo: encontrar a corda e a chave que abre 
a porta que existe dentro da caverna. JS consegui algumas descobertas 
neste jogo, mas estas venho tentando hS vSrios dias sem obter sucesso. 

Gostaria de saber tamMm se o posto da FUNAI, mencionado em 
MS 80, A imprescindfvel no jogo. Caso seja, por favor me diga como 
achd-lo. 

Gilvan Lobo Menezes - Aracaju- SE 

Caro Gilvan, a corda esta justamente no posto da FUNAI e para 
chegar ate Id vocS terS que seguir o mapa A risca. A chave estd dentro de 
um vaso que se encontra no templo da cidade perdida IvocS terd que 
atravessar o lago para chegar atd IS). 

Sou fanStico pelo seu adventure AMAZONIA e gostaria de saber 
se caso eu me "enfie" na mata se eu vou chegar a algum lugar. TambSm 
gostaria de ter uma dica sobre onde encontrar a corda. 

Ah! Gostaria de saber o que eu posso fazer com o cacique, por- 
que uma vez, por brincadeira, arrisquei "PEGUE O CACIQUE" e o 
computador aceitou. Como nao tinha o que fazer com, coloquei-o no 
lago. 

Omar Silas Colocci - Aracaju - SE 

Caro Omar, a resposta ao seu conterrSneo Gilvan serve tambem 
para vocS. Quanto ao cacique, realmente nSo hd nada que possa ser "fei- 
to" com ele. A fungSo dele no jogo 6 fornecer uma dica sobre a salda. 
mas isso s6 acontece apds o mesmo ter recebido alguns presen tes (tente 
dar o espelho para ele). 

Um conselho: nSo aborrega demais os indios pois eles podem 
bloquear a passagem pela aldeia. Isto dificulta muito a movimentagSo 
pela selva. 

Recentemente comprei o jogo AMAZONIA mas nSo conhepo os 
seus comandos. Gostaria que me mandassem uma carta com os coman- 
dos, e que quern jS conseguiu terminar este jogo me escrevesse. O que 
fapo quando estou com sede? 

Luiz Claudio Gomes Barbosa — Rio de Janeiro — RJ 

Carlo Luiz, os comandos do AMAZONIA sSo todos aqueles co- 
mandos cldssicos dos adventures I PEGAR , SOLTAR, EXAMINAR.etc). 
Quando vocS tern sede basta beber Sgua. De o comando BEBA AGUA, 
estando em lugares onde eta exista, evidentemente. 

Gostaria que o Renato me explicasse como se faz para beber 
Sgua no jogo AMAZONIA. JS andei por toda parte: no pantano, clarei- 
ras, matas, etc. e nunca encontro as pilhas. Onde elas estSo? 

Ricardo E. Carrareto — Vila Velha - RS 

Caro Ricardo, a resposta do Luiz tambdm serve para vocd. Acres- 
cento, para os dois, uma dica.se vocds encontrar em uma gar r ala, podem 
enchd-la com dgua para beber quando tiverem sede. 



As pilhas para a lanterna estSo no ridio ports til que esta dentro 
do aviSo laposto que vocS nSo entrou nele para ver o que tern IS dentro, 
nao S?). 

Gostaria de saber como obter o adventure AMAZONIA na versao 
CP 500 disco. 

Jose Lucas da Silva — Sao Bernardo do Campo — SP 

Caro JosS, infelizmente nSo produzimos mais os AMAZONIA na 
versao TRS 80. VocS pode consegui-lo atravSs de algum clube de usuS- 
rios. 

Desde que consegui meu primeiro adventure em 1985 (Zork I), 
fiquei completamente apaixonado por jogos desse tipo, 0 fato de ter 
comprado, e nSo pirateado esse jogo me permitiu um contato um pouco 
mais direto com a empresa que o desenvolveu e o comercializa. 

Isso inclui um catSlogo e um jornal trimestral da empresa, que 
nos deixa atualizados sobre todos os seus lanpamentos, aISm de nos for- 
necer diversas informapdes e permitir dar nossa opiniSo (atravSs de um 
questionSrio de pesquisa publicado desde 1986) sobre o que queremos 
ou nao. 

0 resultado disso A que hoje possuo onze jogos das categorias f ic- 
pSo cientffica, fantasia, mistSrio e aventura, de um total de 38 jogos que 
abrangem ainda aISm das categorias jS citadas, comSdia, romance, intri- 
ga (espionagem) e terror, aISm de pequenas comSdias estilo "revista em 
quadrinhos”. O unico motivo de nSo possuir mais jogos deve-se ao fato 
de minha linha (CP/M) ter sido desativada. 

Tais jogos desfrutam de grande prestfgio; vSrios deles ganharam o 
premio de melhor software do ano nos EUA e dois deles estSo entre os 
softwares (e nSo simplesmente jogos) maisvendidos no mundolll Estes 
jogos chegam a formar trilogies e partilham, dentro de suas categorias. 
de vocabulSrios comuns e, em alguns casos, de universos comuns. Em 
adipSo a isso, suas linhas de comando podem ser escritas como qualquer 
frase imperativa em ingISs, e sua documentapSo (manual e principalmen- 
te o etc.) 6 de t§o alto nfvel que nunca me senti tentado a copiar ao in- 
vis de comprar um dos seus jogos, apenas para poder dispor do manual 
que, de fato, representa metado do jogo. 

Isso tudo, associado ao jornal da empresa e ao meu conhecimen- 
to de diversos outros adventures de todos os tipos, dos mais aos menos 
graficos dos mais aos menos complicados, me deu grande experience 
com adventures. 

NSo A de hoje que planejo construtores de adventures e lingua- 
gens voltadas para isso. PorSm, meu maior interesse A no estudo das pos- 
sibilidades de um adventure. Portanto, para qualquer um que ache que 
gosta tanto de adventures como eu, e que deseje trocar idSias e informa- 
poes, aqui vai meu enderepo atual: 

Daniel C. Sobral - SHIN QL 8 Conj 8 Casa 1 - Brasilia - DF 71500 



Caro Daniel, n6s da RedagSo de MS ficamos muito con ten tes em 

saber que cede vez mais aumenta o niimero de usuSrios que respeitam o 

trabalho original. O pessoal todo ( do clube adventuremaniacos de MS) » 
manda um abrago: CISudio Costa, JosS Eduardo, Luiz Moraes e eu. <£* 
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Adquiri, por meio de um amigo, um programs de sua autoria: o 
famoso adventure AMAZONIA. Possuo um Hotbit da Sharp e, ao che- 
gar em casa para rodar o programs constatei que o mesmo nffo rodava. 
A tela de apresentaqSo entrou, mas quando o micro terminava de 
carregar o programs este ressetava sem piedade. 

Pensei que o jogo estavam mal gravado, mas ao leva-lo A casa 
de um amigo que possui um Expert verifiquei que o mesmo funciona 
perfeitamente, ficando eu a ver navios. 

A partir disto, gostaria que voc§ me desse um esclarecimento 
quanto a esta incompatibilidade e um "jeitinho" que fapa o AMAZO- 
NIA rodar em meu equipamento. Por favor, solucione o meu problems 
pois gostei muito do adventure e o achei interessantfssimo. 

Um fato curioso foi que o meu amigo que "copiou" este progra- 
ms disse-me que o AMAZONIA foi feito num Hotbit, mas af seria o 
cumulo dos cumulos: como um programs que A feito em uma mSquina 
nao roda numa outra mSquina de mesmo nome, fabricante, etc? 
Grinaldo Lopes de Oliveira - Salvador — BA 

Caro Grinaldo, seu "amigo" tern razSo quando diz que o AMA- 
ZONIA foi escrito num Hotbit. Eu o escrevi de modo a rodar tan to no 
prdprio Hotbit quanto no Expert lapesar das diferengas). 

Acontece que a sua c6pia do AMAZONIA, por ter sido adquirida 
de forma ilegal, nSo pode ser considerada como um produto digno de 
confianga. Entenda que, se por um breve momento deixarmos de lado 
as impticagoes comerciais do ato da pirataria, o que sobrarA A o seguin- 
te: um autor cria um programa e este A gravado em uma fita ou disco 
para servir de matriz. 

Todas as cdpias originais sairSo desta mesma matriz e desta for- 
ma pode-se afirmar, com certo grau de certeza, que todas elas sSo idAn- 
ticas. Qualquer copia que seja feita de um original fora do controle da 
produgSo do autor pode acarretar divergencies quanto A primeira ver- 
sSo. 

Isto ocorre com muita freqiiencia, ou seja, a 14m do prejufzo co- 
mercial que a pirataria impoe aos autores, 6 comum o pirata, dando va- 
zao a sua incompetencia como programador. alterar dados, nomes, etc. 
do programa original. A partir dai fica dificil saber porque a sua cdpia 
ilegal do AMAZONIA nSo funciona. 

Lembre-se que nenhum autor pode ser responsabilizado por cd- 
pias ilegais da sua obra. O cumulo dos cumulos seria culparmos um pin- 
tor pelos quadros falsos que porventura levem a sua assinatura. 

Eu diria que voce nSo possui o jogo AMAZONIA e sim um falso 
"Amazonia". 



Adquiri um editor de adventures para a linha Spectrum chamado 
Graphic Adventure Creator (G.A.C.), mas nSo consigo nem iniciar a 
montagem de um jogo, pois nSo sei qual 6 a instru?5o que faz o cursor 
aparecer. 

Gostaria de saber, tambdm, quais s So as instrugdes disponfveis na 
linguagem do G.A.C. e seus significados. 

Hermann Henning Rauth - Curitiba - PR 

Caro Hermann, estamos preparahdo uma materia para esta co- 
luna sd sobre o G.A.C. . Para isto estmos contando com a ajuda do Luiz 
Moraes, que nSo sd entende tudo sobre o G.A.C., mas tambdm e o autor 
do adventure Lenda da GAvea. cuja versSo para o TK 90X/95 foi escrito 
no prdprio. 

Aguarde sd mais um pouquinho. 

Gostaria de saber de quern possui o jogo A Lenda da GSvea, co- 
mo se faz para achar o revdlver usado para matar a cobra. 

Marcio Lopes Moreira Lima - Juiz de Fora - MG 

Puxa, MArcio, vocA nSo acha uma maldade matar a cobra ? Pense 
bem, nSo seria melhor ao invAs de ficar procurando o revdlver fjA que 
vocA nao consegue encontrA-lol, contornar o problema ? 

Gostaria que os leitores desta coluna me dessem uma dica para 
achar o revdlver ou para matar a cobra do adventure A Lenda da GSvea. 

Sergio Sueo Tamura - Mogi das Cruzes - SP 

Mais um querendo matar a pobre cobra. SerA que esta A a unica 
alternative? Pense bem: a gente tern medo de cobra, mas a cobra tarn- 
bAm pode ter medo da gente, entSo... 



A 
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MS CONVIDA 



0 uso do PC na 

automacao bancaria 

# 



Luiz Aurelio Pedro Graga 
e 

Cid dos Santos 



A AutomagSo BancSria no Brasil, acom- 
panhando toda a tecnologia am qua a 
microinformStica tern contribufdo 
para alterar solugoes, acaba da se integrar a es- 
te tipo de solugSo com a utilizagSo de micros 
PCs, como concentradores de Agendas, ope- 
rando em rede local. 

Na medida em que a crise economica 
brasileira comegou a retrair os lucros dos gran- 
des conglomerados financeiros, estes comega- 
ram a olhar a AutomagSo Bancaria nSo so co- 
como um servigo ou imagem de marketing de 
Banco inovador, mas principalmente como 
uma solugSo que viesse a reduzir significante- 
mente os custos operacionais. 

Esta estratSgia comegou a despontar em 
alguns Bancos que jS adotavam a AutomagSo 
Bancaria da seguinte maneira: osgrandes cen- 
tros regionais de entrada e processamento de 
dados comegaram a ser reduzidos e atS el imi- 
nados, passando para as Agendas a tarefa de 
captura de transagoes e tratamento das infor- 
magdes a nfvel local. Esta estratSgia, sem du- 
vida, nSo pode ser adotada sem ter a Auto- 
magao BancSria como a principal aliada. 

Os caisas passaram a ter em uma Agen- 
da banc3ria a fungSo de capturar todos os 
dados financeiros e atravSs da rede de automa- 
gSo, estes dados sSo transmitidos ao computa- 
dor central. Neste conceito estSo inclufdas 
nao s6 as transagoes de conta corrente e pou- 
panga, como tamtam transagdes de fundos de 
investimentos, certificados de depbsitos, tri- 
butos, liquidagoes de duplicatas e etc. 

A retaguarda operacional de uma Agen- 
da tamtam estS passando por grandes trans- 
formagdes. A AutomagSo da Retaguarda 6 
sem sombra de duvida a grande fungSo desbu- 
rocratizante de uma Agenda. Milhares de do- 
cumentos. como fichas contSbeis, preparagSo 
de avisos de crSditos ou dSbitos a clientes, 
preparagSo de slips e grades de fechamento 
dos sistemas, que sSo na maior parte dos 
Bancos preparados manualmente por um 
imenso contigente de funcionSrios. que se 
revezam em turnos de seis horas, sao tratados 
na AutomagSo de Retaguarda de forma auto- 
matics, eliminando a tarefa manual de prepa- 



ragao de tais documentos, e principalmente, 
melhorando o controle operacional, isto S. 
eliminando erros e evitando estornos de docu- 
mentos. 

Outro setor da agencia que esta tirando 
partido da automagSo, para com isto melhor 
atender a seus clientes com custos reduzidos S 
a Gerencia da Agencia. Em alguns Bancos, 
tamtam o Gerente da Conta passa a ser um 
elemento de captura de dados, na medida em 
que a entrada do netjocio efetuado com o cli- 
ente S feito no computador da agencia pelo 
prdprio Gerente. SenSo vejamos: o cadastro 
dos dados do cliente que antes era coletado 
em formulSrios, agora, na prbpria presenga 
do cliente este dados sSo imputados, atra- 
vSs da Rede de AutomagSo. O fechamento de 
negocios, como venda de produtos (CDBs, 
RDBs, Fundos, etc.) passam a ser capturados 
diretamente no momento em que o negbcio 
S fechado, possibWitando, mais uma vez pela 
Rede de AutomagSo, que o Tesoureiro do 
Banco tenha uma posigSo atualizada dos ne- 
gocios captados no decorrer do dia, sem ne- 
cessidade de manter sistemas on-line. 

A grande ferramenta que o mercado de 
AutomagSo BancSria acaba de receber e que 
jS estfi implantadoem Agendas de um Banco 
multinacional S a solugSo utilizando equipa- 
mentos micros PCs como concentrador de 
Agendas, trabalhando no conceito de rede lo- 
cal. 

Sem duvida, esta solugSo atende a gran- 
de expectativa dos Bancos, em busca de me- 
nores investimentos e ampliagSo de sua capa- 
cidade de processamento local. 

A solugSo adotada pelo Banco Multina- 
cional consisteem uma rede de PCs (Concen- 
trador da Agencia, Processador da Retaguar- 
da e Processador da GerSncia) que possibilita 
a total integragSo dos diferentes ambientes da 
Agencia. 

O Concentrador da AgSncia aISm de ter 
a fungSo de gerenciar a rede local e se comuni- 
car com o Host, possuirS uma base de dados, 
relativa ao cliente, que serS compartilhada pe- 
la Retaguarda e pela Gerencia. 



A solugSo dos PCs, comparada com a 
adogSo de Super Micros, permite uma maior 
modularidade, isto e, uma agdncia mSdia po- 
derS ser configurada com um numero de PCs 
exatamente igual para atender S sua necessi- 
dade, enquanto que a configuragSo de um Su- 
per Micro, pode em termos de sua real utili- 
zagao ultrapassar as necessidades das agendas, 
por um custo realmente muito maior. 

Ao contrSrio do Super Micro, que 6 
uma solugSo eminentemente para automa- 
gSo bancSria, os PCs instalados nas agendas, 
podem ser remanejados para outras Sreas do 
banco, em troca dos novos modelos, acompa- 
nhando assim a evolugSo tecnolbgica que 
marca este segmento de mercado. 

0 uso dos PCs permite que sejam utiliza- 
dos softwares para Bancos jS existentes no 
mercado, como Cofres de Aluguel, Contas a 
Pagar, Planilhas, etc., que podem ser utiliza- 
dos nos PCs obedecendo as regras de seguran- 
ga necessSrias para um sistema de automagSo, 
isto 6 , acesso hierarquizado de acordo com o 
cargo e nfvel do funcionSrio. 

0 Banco multinacional que adotou esta 
solugSo usa na maioria das agSncias tres PCs 
ligados em rede local, sendo um deles o con- 
centrador de terminals de caixa. O segundo 
automatize todas as fungdes da Retaguarda 
da agencia, e um terceiro gera informagoes pa- 
ra a Srea Gerencial da Agencia. 

O ambiente de processamento utiliza um 
sistema operacional compatfvel com DOS da 
Microsoft. 

A TELEPRO INFORMATICA "software 
house" com grande experiencia no mercado 
bancSrio coloca a disposigSo a sua tecnologia 
em AutomagSo BancSria para Caixas, Reta- 
guarda e GerSncia, utilizando equipamentos 
PCs , a ligagSo com o Host e para desenvolvi- 
mento de qualquer sistema bancSrio. 
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FALTOU LUZ ? 



ESTABILIZADOR 



NO BREAK" 

(ENERGIA DE EMERGENCIA) 



+ \ BATERIA (SELADA) 




POirERRlK 



(PELO PRECO DE UM ESTABILIZADOR) 



, ssg-L 



BATERIA SELADA 

— N3o vaza . 

— Dispensa reposipSo de agua 

— N3o exala gases 

— N5o suja os terminals 



POWER PAK 

Onico ' No break" (energia de emergencia) 
do Brasil estabilizado e com bateria 
interna selada. I I I I 

HlTrM ntu 






Curitiba (041 1224-3672 
Eng' Mauro Coacci 



S3o Paulo (011)581-5009 
(011)578-9018 
Sr. Navid Afnan 

Rio de Janeiro (021 > 280-2680 
Eng* Hellos Caidas 

Camolnas (0192) 41-0537 
Eng 1 Lenine Rocha 



Beto Horizonte (031) 221-4005 
Eng* Maurlclo Ricardo Ventura 
Recite (081) 325-1551 
Eng 1 Fernando GuimarJes 

VitOrla (027) 239-2200 
Sr. Edem Wigner Jr. 

Porto Alegre (0512)43-4373 
Sr. Cartos Catazans 



Salvador (071)358-4886 
Eng 1 JosO Carlos Dario de SO 

Brasilia (061) 274-7788 
Sr. Marcelo Miranda 






